Hi Shaun,

Think i'll just have to do the same in relation to including Trainer/Jockey performance into my ratings. It's just too important to continue leaving it out IMO unless someone can tell me otherwise.

The following macro is what I used to enable me to get the table I was after:

Sub Macro1()
'
' Macro1 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.racingandsports.com.au/form-guide/meeting.asp?raceno=3&meeting=27664" _
, Destination:=Range("$A$1"))
.Name = "meeting.asp?raceno=3&meeting=27664"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = 36
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=54
End Sub

EDIT: Would obviously have to adapt that code a bit to automate it more with the rest of my ratings but this was just to illsutrate the table I was after