Highlighted in red, I would like to get that info into an Excel sheet.
<div class="pod-media">
<div class="img">
<img width="80" height="100" src="//cdn.cpnscdn.com/insight.coupons.com/COS20/_Cache/_ImageCache/391/18055391.gif" alt="DAWN®" class="pod-image">
</div>
</div>
</div>
<div class="right">
<div class="pod-info">
<h4 class="summary">50¢ OFF</h4>
<h5 class="brand">DAWN®</h5>
<p class="details">ONE Dawn® Hand Renewal, Power Clean, Bleach Alternative or Oxi (excludes trial/travel size)</p>
</div>

I have a script I found on the net, that I am trying to modify to my needs, but now I keep running into syntax errors. Can anyone assist me? I need each piece of info in it's own column and it needs to do this several times for each brand it finds. When this is working I want to do it for several zip codes, so my best bet is a new sheet for each zip and repeat the process? Thanks for any help.

Sub podList()
Dim i As Integer
Dim sURL As String, sHTML As String, sAllPosts As String
Dim oHttp As Object
Dim lpodListstart As Long, lTpodListend As Long
Dim blWSExists As Boolean
'Create a new Worksheet "77477" if it doesnt'exist already.
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "77477" Then
blWSExists = True
Worksheets(i).Activate
End If
Next
If Not blWSExists Then
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "77477"
End If
'URL to open
sURL = "http://www.coupons.com/coupons/?zip=77477"
' Create an XMLHTTP object and add some error trapping
On Error Resume Next
Set oHttp = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
MsgBox "Error 0 has occured while creating a MSXML.XMLHTTPRequest object"
End If
On Error GoTo 0
If oHttp Is Nothing Then
MsgBox "For some reason I wasn't able to make a MSXML2.XMLHTTP object"
Exit Sub
End If
'Open the URL in browser object
oHttp.Open "GET", sURL, False
oHttp.Send
sHTML = oHttp.responseText
'Extract the desired information from the returned HTML code (text)
'To make things a little easier I usually cut of most of the unwanted code first
'so sHTML is smaller to work with.
lpodListstart = InStr(1, sHTML, "pod-info", vbTextCompare)
lpodListend = InStr(1, sHTML, "</div>", vbTextCompare)
sHTML = podList(1podinfo, lbrand, ldetails, lsummary)
'Now extract all text within the hyperlinks <a href..>..</a>
'because they represent the topics
i = 1
lpodListstart = 1
lpodListend = 1
Do While lpodList <> 0
i = i + 1
lpodListstart = InStr(lpodListend, sHTML, "<a href=", vbTextCompare)
If lpodListstart <> 0 Then
lpodListstart = InStr(lpodListstart, sHTML, ">", vbTextCompare) + 1
lpodListend = InStr(lpodListstart, sHTML, "</a>", vbTextCompare)
Worksheets(Worksheets.Count).Range("A2").Offset(i, 0).Value = _
Mid(sHTML, lpodinfostart, lpodinfoend - lpodinfostart)
spodList = ClassName="pod-info"(sHTML).ClassName="brand".ClassName="details"ClassName="summary"
End If
Loop
'Clean up
Set oHttp = Nothing
Worksheets(Worksheets.Count).Range("A1").Value = "77477"
MsgBox ("77477")
End Sub
Function myFunction(id)
Call myConnection(id)
Set podList = oHtml.getElementById("Div")
.getElementsByClassName("pod-info")(0).getElementsByClassName("brand")(0).getElementsByClassName("details")(0).getElementsByClassName("summary")(0)
myFunction = myData.innerText
End Function