WinHttp.WinHttpRequest question

Option Explicit
' set references to Microsoft XML and Microsoft HTML Object Library
' (through Tools>References...)

Sub getAmazonData()
    
    Dim oHttp As MSXML2.XMLHTTP
    Dim sURL As String
    Dim HTMLDoc As HTMLDocument
    Dim c As Range
    
    ' Create an XMLHTTP object
    Set oHttp = New MSXML2.XMLHTTP
     
    For Each c In Range("A2", Range("A2").End(xlDown)) 'change to however you want to loop through the items
        
        ' get the URL to open
        sURL = "http://www.amazon.co.uk/dp/" & c
            
        ' Open socket and get website html
        oHttp.Open "GET", sURL, False
        oHttp.Send
        Set HTMLDoc = New HTMLDocument
        With HTMLDoc
            'Assign the returned text to a HTML document
            .body.innerHTML = oHttp.responseText
            
            ' find and place the returned text in the sheet (skip errors)
            On Error Resume Next
                c.Offset(0, 1) = .getElementsByClassName("listprice").Item(0).innerHTML
                c.Offset(0, 2) = .getElementsByClassName("priceLarge").Item(0).innerHTML
            On Error GoTo 0
        End With
    
    Next c
    
    'Clean up
    Set oHttp = Nothing

End Sub

For Each c In Range("A2", Range("A2").End(xlDown))

For Each c In Range("A2", Range("A1").End(xlDown))

            On Error Resume Next
                c.Offset(0, 1) = .getElementsByClassName("listprice").Item(0).innerHTML
                c.Offset(0, 2) = .getElementsByClassName("priceLarge").Item(0).innerHTML
            On Error GoTo 0

<td id="actualPriceContent">span id="[COLOR="Red"]actualPriceValue[/COLOR]">
<b class="priceLarge">£12.50</b></span>