每次运行宏 append 时，都无法将结果变为已经存在的结果

Question

I've created a macro using xmlhttp requests to fetch some tabular content from a webpage. The macro is doing fine. What I wish to do now is let the macro append the result to the already existing results every time I run it.

To be clearer, when I run the macro, I find it writing results in sheet1 upto row 61 no matter how many times i run it. However, what i wish to do is when I rerun the macro, it will write results after row 61 excluding the header and then again after row 121 and so on.

I've tried with:

Sub GetTabularContent()
    Const Url = "https://sofifa.com/players?offset=0"
    Dim Html As New HTMLDocument, S$, R&, C&
    Dim wb As Workbook, ws As Worksheet
    Dim elem As Object, tRow As Object
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1")

    With New ServerXMLHTTP
        .Open "GET", Url, 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: ws.Cells(R + 1, C) = tRow.innerText
            Next tRow
            C = 0: R = R + 1
        Next elem
    End With
End Sub

This is exactly how the result is being written.

How can I let the macro append results to the already existing results if there is any?

Answer 1

The best way is to get the last row of Excel and write after it. This function will do it :

Public Function LastRow(wsName As String, Optional columnToCheck As Long = 1) As Long

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(wsName)
    LastRow = ws.Cells(ws.Rows.Count, columnToCheck).End(xlUp).Row

End Function

To call the function, try this:

dim myLastRow as Long
myLastRow = LastRow(ws.Name)
C = myLastRow
For Each elem In .getElementsByTagName("table")(0).Rows
    For Each tRow In elem.Cells
        C = C + 1: ws.Cells(R + 1, C) = tRow.innerText
    Next tRow
    C = myLastRow : R = R + 1
Next elem

Give it a few tries, if it does not work exactly as you want it to be, I have not tested it.