HTML 엑셀 매크로 에러 및 빈셀 처리 문의

Sub Automate()
Dim sht As Worksheet
Dim lastRow As Long
Dim r As Range

Set sht = ActiveSheet
lastRow = sht.Cells(Rows.Count, "A").End(xlUp).Row
If lastRow < 2 Then Exit Sub

For Each r In sht.Range("A2:A" & lastRow)

r.Offset(, 1).Resize(, 10).ClearContents
Call getDM(r)

Next r

End Sub

Function getDM(url As Range)

Dim Json As Dictionary 'Object
Dim jValue As Dictionary, v As Variant
Dim i As Integer

'Json 파싱
Set Json = JsonConverter.ParseJson(getHtml(url.Text))
'데이터 출력
url.Offset(, 1) = Json("purchasable")

url.Offset(, 2) = Json("priceLocalized")

End Function

Function getHtml(str As String) As String

Dim http As Object 'New MSXML2.XMLHTTP
Set http = CreateObject("MSXML2.serverXMLHTTP")

'접속
With http
.Open "get", str, False
'.setRequestHeader "accept", "text/html,application/xhtml+xml,application/xml"
.setRequestHeader "user-agent", "Mozilla/5.0"
.send
If Left(.responseText, 1) = "[" Then
getHtml = Mid(.responseText, 2, Len(.responseText) - 2)

Else
getHtml = .responseText
End If
'Debug.Print getHtml
'On Error Resume Next ' 에러무시
End With
If Not http Is Nothing Then Set http = Nothing

End Function

Function ENCODEURL(varText As Variant, Optional blnEncode = True)
Static objHtmlfile As Object
If objHtmlfile Is Nothing Then
Set objHtmlfile = CreateObject("htmlfile")
With objHtmlfile.parentWindow
.execScript "function encode(s) {return encodeURIComponent(s)}", "jscript"
End With
End If
If blnEncode Then
ENCODEURL = objHtmlfile.parentWindow.encode(varText)
End If
End Function

구매가능여부 확인 코드에서 Json(“purchasable”)의 값이 True 또는 False인지 확인하지 않고 있네요. If 문으로 구매가능여부가 True일 때만 가격을 가져오도록 수정하시고, 또 가격을 가져오는 코드에서 Json(“priceLocalized”)의 값이 존재하는지 확인하지 않고 있어요. 가격이 없는 상품이면 오류가 생길 수 있어서, IsEmpty 함수로 가격이 있는지 확인하고, 없다면 "가격미정" 같은 텍스트가 출력되도록 해 보세요

--당최 무슨말인지 모르겠습니다.