Getting the product details

gistfile1.txt

Sub asinfetch()

Dim driver As New FirefoxDriver
driver.Get "http://www.amazon.com/gp/product/B00MFY3GB4", 20000
driver.Window.Maximize

Set proe = driver.FindElementById("detail-bullets")
Set cla = proe.FindElementByClass("content")
Set li = cla.FindElementsByTag("li")

For Each lis In li
    If InStr(lis.Text, "UPC:") Then
        Debug.Print lis.Text
    End If
    If InStr(lis.Text, "Average Customer Review:") Then
        Debug.Print lis.Text
    End If
     If InStr(lis.Text, "Average Customer Review:") Then
        Debug.Print lis.Text
    End If
    
Next

'Set give = cla.FindElementByClass("a-icon-alt")
ThisWorkbook.Sheets(1).Cells(1, 1) = cla.Text

End Sub