Need assistance with macro that scrapes web data - Need to place across columns.

I have the following code which is getting the data that I want. It presently stacks the scraped data in column("A"). I am looking for assistance in changing it, so it goes across the columns. Starting columns would be "A", Last Column would be "J", then advance to next row.

Sub Extract_TD_text()
     
    Dim URL As String
    Dim IE As InternetExplorer
    Dim HTMLdoc As HTMLDocument
    Dim TDelements As IHTMLElementCollection
    Dim TDelement As HTMLTableCell
    Dim r As Long
     
     'Saved from www vbaexpress com/forum/forumdisplay.php?f=17
    URL = "http://www.vegasinsider.com/mlb/matchups/matchups.cfm/date/04-14-17"
     
    Set IE = New InternetExplorer
     
    With IE
        .navigate URL
        .Visible = True
         
         'Wait for page to load
        While .Busy Or .readyState <> READYSTATE_COMPLETE: DoEvents: Wend
             
            Set HTMLdoc = .document
        End With
         
        Set TDelements = HTMLdoc.getElementsByTagName("TD")
         
        Sheet2.Cells.ClearContents
         
        r = 0
        For Each TDelement In TDelements
             'Look for required TD elements - this check is specific to VBA Express forum - modify as required
            If TDelement.className = "viBodyBorderNorm" Then
                Sheet2.Range("A1").Offset(r, 0).Value = TDelement.innerText
                r = r + 1
            End If
        Next
         
End Sub

I used a different code. Try it.