Hi all,

I would like to import an entire page "http://www.wunderground.com/history/airport/coventry/2014/1/19/WeeklyHistory.html?req_city=NA&req_state=NA&req_statename=NA&MR=1" into the spreadsheet. In particular I need the last table.

I tried web query, but I want to be able to alter the html code, that's why Web Query didn't work. Any help would be massively appreciated.

VBA so far 

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.wunderground.com/history/airport/coventry/" & Range("B5") & "/" & Range("B6") & "/" & Range("B7") & "/WeeklyHistory.html?req_city=NA&req_state=NA&req_statename=NA&MR=1", _
        Destination:=Range("$A$1"))
        .Name = "q?s=usdCAd=x_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub