AMAZON FETCHER V.03.1.xlsm ~ MAIN module

Option Explicit

Sub AMAZONMAIN()

    Dim img As MSHTML.IHTMLElement
    Dim req As New MSXML2.XMLHTTP60
    Dim doc As New MSHTML.HTMLDocument
    Dim linkList As Range, r As Range
    Dim link As String
    Set linkList = Sheet1.Range("A3", Range("A3").End(xlDown))
    For Each r In linkList
        link = r.Value
        req.Open "GET", link, True
        req.send
        Do While req.readyState <> 4
            DoEvents
        Loop
        Dim resp
        resp = req.responseText
        doc.body.innerHTML = resp
'        Debug.Print Req.responseText
        On Error Resume Next
        r.Offset(0, 1).Value = doc.getElementById("productTitle").innerText
        r.Offset(0, 2).Value = doc.getElementById("feature-bullets").innerText
        r.Offset(0, 3).Value = doc.getElementById("productDescription").innerText    '
        r.Offset(0, 4).Value = doc.getElementById("priceblock_ourprice").innerText
        r.Offset(0, 5).Value = doc.getElementById("ourprice_shippingmessage").innerText
        r.Offset(0, 6).Value = doc.getElementById("SalesRank").innerText
        Dim a
        a = Split(resp, """hiRes"":""https")
        Dim i
        For i = 1 To UBound(a)
            r.Offset(0, 6 + i).Value = "https" & Split(a(i), """", 2)(0)
        Next
    Next r
    MsgBox "DATA FETCHED SUCCESSFULL BOSS"

End Sub