Dim counter As Long
counter = 1
For Each tRow In tRows
           If Not headerRow Then
               counter = counter + 1
               If counter > 20 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