OZmium Sports Betting and Horse Racing Forums - View Single Post - download unitab horse data into excel spreadsheet

I am having an issue, i am using part of your code but it keeps dropping race 1 from each venue when it creates the racelist, bit of help needed.
Code:


'Global RaceCodes(1 To 20) As String
'Global RaceNumbers(1 To 12) As Integer
Global RaceCount As Integer
Global RaceNo As Integer
Global RaceCode As String
Sub RunAll()
    Application.Calculation = xlCalculationAutomatic
    GetRaces2
        For RaceNo = 2 To 2 'RaceCount
        Next RaceNo
End Sub
Sub GetRaces2()
    Sheets("RaceList").Select
    Sheets("RaceList").Range("A2:AB500").Select
    Selection.ClearContents
    Sheets("Races2").Select
    Sheets("Races2").Cells.Select
    Selection.ClearContents
    With Sheets("Races2").QueryTables.Add(Connection:= _
        "URL;http://formguide.cyberhorse.com.au/index.php/Form/view-form.html" _
        , Destination:=Sheets("Races2").Range("$A$1"))
        .Name = False
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .Refresh BackgroundQuery:=False
    End With
    A = 2
    B = 2
    strquote = Chr$(34)
    TrackName = vbNullString
    RaceNumber = 0
    Do While Sheets("Races2").Cells(A, 1) <> vbNullString Or Sheets("Races2").Cells(A + 1, 1) <> vbNullString
        If IsNumeric(Sheets("Races2").Cells(A, 1)) = False Then
            TrackName = Sheets("Races2").Cells(A, 1)
            If TrackName = "Port Macquarie" Then TrackName = "Pt Macquarie"
            A = A + 2
        End If
        If IsNumeric(Sheets("Races2").Cells(A, 1)) = True Then
            RaceNumber = Sheets("Races2").Cells(A, 1)
            Sheets("RaceList").Cells(B, 1) = TrackName
            Sheets("RaceList").Cells(B, 2) = RaceNumber
            Sheets("RaceList").Cells(B, 3) = "=GetAddress(Races2!E" & A & ")"
            Sheets("RaceList").Cells(B, 4) = "=SUBSTITUTE(C" & B & "," & strquote & "&" & strquote & "," & strquote & "&&" & strquote & ")"
            Sheets("RaceList").Cells(B, 4) = "http://" & "formguide.cyberhorse.com.au/index.php/Form/form.html?" & Right(Sheets("RaceList").Cells(B, 4), Len(Sheets("RaceList").Cells(B, 4)) - 80)
            Sheets("RaceList").Cells(B, 5) = "'" & Mid(Sheets("RaceList").Cells(B, 4), 70, 10)
            A = A + 1
            B = B + 1
        End If
    Loop
    RaceCount = B - 1
End Sub

Function GetAddress(HyperlinkCell As Range)
    GetAddress = Replace _
    (HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function