Using ADO paste to last used row

[sharky12345]

I've found this on Ron de Bruin's site and want to know if it can be adapted so that instead of putting the data in cell A1 it puts it in the first empty row in column A?

Sub GetData_Example3()
' In this example Header = False and UseHeaderRow can be True or False because it is not used
    GetData ThisWorkbook.Path & "\test.xls", "Sheet1", _
            "A2:C4", Sheets("Sheet1").Range("A1"), False, False
End Sub

 

[MARK858]

Try

Sub GetData_Example3()
' In this example Header = False and UseHeaderRow can be True or False because it is not used
    GetData ThisWorkbook.Path & "\test.xls", "Sheet1", _
            "A2:C4", Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1), False, False
End Sub

 

[sharky12345]

Thank you!