Чтобы добавить данные в последнюю строку таблицы в Excel VBA, вы можете использовать несколько разных методов. Вот несколько примеров:

Метод 1: использование объекта ListObject

Sub AddDataToListObject()
    Dim tbl As ListObject
    Dim newRow As ListRow

    ' Assuming the table is named "Table1"
    Set tbl = ActiveSheet.ListObjects("Table1")
    Set newRow = tbl.ListRows.Add

    ' Assuming the table has three columns, you can assign values to each column
    newRow.Range(1) = "Value 1"
    newRow.Range(2) = "Value 2"
    newRow.Range(3) = "Value 3"
End Sub

Метод 2. Использование объекта Range

Sub AddDataToRange()
    Dim lastRow As Long
    Dim ws As Worksheet

    ' Assuming the table is in the active worksheet
    Set ws = ActiveSheet

    ' Find the last row in the table
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Add data to the next row after the last row
    ws.Cells(lastRow + 1, 1) = "Value 1"
    ws.Cells(lastRow + 1, 2) = "Value 2"
    ws.Cells(lastRow + 1, 3) = "Value 3"
End Sub

Метод 3. Использование объекта Range с методом Find

Sub AddDataWithFind()
    Dim lastCell As Range
    Dim ws As Worksheet

    ' Assuming the table is in the active worksheet
    Set ws = ActiveSheet

    ' Find the last cell in the table
    Set lastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlFormulas, _
                                 LookAt:=xlPart, SearchOrder:=xlByRows, _
                                 SearchDirection:=xlPrevious, MatchCase:=False)

    ' Add data to the next row after the last cell
    ws.Cells(lastCell.Row + 1, 1) = "Value 1"
    ws.Cells(lastCell.Row + 1, 2) = "Value 2"
    ws.Cells(lastCell.Row + 1, 3) = "Value 3"
End Sub

Это всего лишь несколько примеров того, как можно добавить данные в последнюю строку таблицы в Excel VBA. Вы можете выбрать метод, который лучше всего соответствует вашим потребностям.