Невозможно удалить первые два столбца таблицы при очистке

Кажется, проще всего проверить значение c, составляющее> 3, и отрегулировать выходной сигнал c для -3

Option Explicit

Public Sub GetTable()
    Dim S$, c&, R&, elem As Object, tRow As Object

    With New XMLHTTP60
        .Open "GET", "https://www.psacard.com/psasetregistry/baseball/company-sets/2018-topps-now/publishedset/271273", False
        .send
        S = .responseText
    End With

    With New HTMLDocument
        .body.innerHTML = S
        For Each elem In .getElementsByTagName("table")(0).rows
            For Each tRow In elem.Cells
                c = c + 1
                If c > 3 Then Activesheet.Cells(R + 1, c - 3) = tRow.innerText
            Next tRow
            c = 0: R = R + 1
        Next elem
    End With
End Sub