VBA code for Seller offer data

[tahirsatti]

I am trying to write something in VBA to get all Seller info and Price from Amazon Seller Page, My code is given below.

Sub RunNewModule()

Dim ie As SHDocVw.InternetExplorer
Set ie = New SHDocVw.InternetExplorer
Dim html As MSHTML.HTMLDocument


Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False
ie.Navigate "[URL="http://www.amazon.com/gp/offer-listing/B00NNZZG1W/ref=olp_f_new?ie=UTF8&f_new=true&f_primeEligible=true"]http://www.amazon.com/gp/<wbr>offer-listing/B00NNZZG1W/ref=<wbr>olp_f_new?ie=UTF8&f_new=true&<wbr>f_primeEligible=true[/URL]"

 Do Until ie.Busy = False
        DoEvents
    Loop

    Set html = ie.document

Set priceData = html.getElementsByClassName("olpOfferPrice")
Set ie = Nothing

Dim sellers

cntr = 4
For Each Item In priceData
    Range("B" & cntr) = Item.innerText
    cntr = cntr + 1
Next Item

sellers = priceData

Cells.Clear
Range("A3").Value = "Seller"
Range("B3").Value = "Price"
Range("A4").Value = sellers
ie.Quit


End Sub

But after execution,it display error on this line... Range("A4").Value = sellers

My requirment is to display information in this style.

Seller	Price
Amazon	399.99

<tbody>
</tbody>

Thanks.