Const numberOfRaces As Long = 20
Dim counter As Long
counter = 1
For Each tRow In tRows
    If Not headerRow Then
        counter = counter + 1
        If counter > numberOfRaces Then Exit For
        c = 2: r = r + 1
        results(r, 1) = asays(asay)
        Set tCells = tRow.getElementsByTagName("td")
        For Each tCell In tCells
            results(r, c) = tCell.innerText
            c = c + 1
        Next
    End If
    headerRow = False
Next