the code that I ususally start with for doing webscraping is this, which I then modify to extract just that data I am looking for on that website.
Sub webscrape()
With Worksheets("sheet1")
Range(.Cells(1, 1), .Cells(5000, 2)) = ""
outarr = Range(.Cells(1, 1), .Cells(5000, 2))
Set webHTTP = CreateObject("Microsoft.xmlHTTP")
urlstring = "http://www.vbaexpress.com/forum/forum.php"
webHTTP.Open "GET", urlstring, False
webHTTP.send
textmess = webHTTP.responseText
MsgBox textmess
webrows = Split(webHTTP.responseText, Chr(10))
For j = 0 To UBound(webrows) - 1
outarr(j + 1, 1) = webrows(j)
Next j
Range(.Cells(1, 1), .Cells(5000, 2)) = outarr
End With
End Sub