Sub oh()

Dim i, s, o As New MSXML2.XMLHTTP

For i = 1 To 20
o.Open "GET", Cells(i, 1).Hyperlinks(1).Address, False
o.send
s = o.responseText

MsgBox s

<здесь вытягиваем из строки s нужную инфу и записываем ее куда надо>

Next i

Set o = Nothing

End Sub

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"    ' String to search in.
SearchChar = "P"    ' Search for "P".
' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(4, SearchString, SearchChar, 1)    
' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(1, SearchString, SearchChar, 0)
' Comparison is binary by default
' (last argument is omitted).
MyPos = Instr(SearchString, SearchChar)    ' Returns 9.
MyPos = Instr(1, SearchString, "W")    ' Returns 0.

Sub oh()

Dim i, s, o As New MSXML2.XMLHTTP

For i = 1 To 20
o.Open "GET", Cells(i, 1).Hyperlinks(1).Address, False
o.send
s = o.responseText
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"    ' String to search in. - здесь указать начало подстроки?
SearchChar = "P"    ' Search for "P". - здесь указать класс?
MyPos = Instr(1, SearchString, SearchChar, 0)
MsgBox s



Next i

Set o = Nothing

End Sub

Dim SearchString, SearchChar, MyPos
SearchString ="<span class="goldPrice" data-unit-price=""    ' String to search in. - здесь указать начало подстроки?
MyPos = Instr(1, SearchString, SearchChar, 0)

Sub oh()

Dim i, s, o As New MSXML2.XMLHTTP

For i = 1 To 20
o.Open "GET", Cells(i, 1).Hyperlinks(1).Address, False
o.send
s = o.responseText
Dim SearchString, SearchChar, MyPos
SearchString ="s"   
SearchChar = ""<span class="goldPrice" data-unit-price=""    
MyPos = Instr(1, SearchString, SearchChar, 0)
MsgBox s



Next i

Set o = Nothing

End Sub

Sub oh()

Const KEY = ActiveSheet.Range("C2:D10").Select

Dim i&, j&, s$, o As New MSXML2.XMLHTTP
  On Error Resume Next
  For i = 2 To 1000
    o.Open "GET", Cells(i, 1).Hyperlinks(1).Address, False
    o.send
    If Err Then
      Err.Clear
    Else
      s = o.responseText
      j = InStr(1, s, KEY, vbTextCompare)
      If j > 0 Then Cells(i, 2) = Val(Mid$(s, j + Len(KEY), 10))
    End If
  Next i
  Set o = Nothing '?????????????
End Sub

Sub oh()

Dim i&, j&, s$, o As New MSXML2.XMLHTTP
  On Error Resume Next
  For i = 1 To 20
    o.Open "GET", Cells(i, 1).Hyperlinks(1).Address, False
    o.send
    If Err Then
      Err.Clear
    Else
      s = o.responseText
      j = InStr(1, s, Cells(i, 2), vbTextCompare)
      If j > 0 Then Cells(i, 3) = Val(Mid$(s, j + Len(Cells(i, 2)), 10))
    End If
  Next i
  Set o = Nothing '?????????????
End Sub