Добавление данных в таблицу Excel

Question

Я изо всех сил пытаюсь понять, как добавить данные в таблицу. У меня есть следующий код:

Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Table1")
tbl.ListRows.Add 1

Это добавляет новую строку вверху таблицы, но как вы затем добавляете данные в указанные c столбцы в этой новой строке таблицы?

Column 1 in the table = Date
Column 2 in the table = Licence 1
Column 3 in the table = Licence 2
Column 4 in the table = Licence 3

Я знаю, что если бы я хотел добавить новую строку в конец таблицы, я бы использовал это:

Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("Table1")
Set NewRow = tbl.ListRows.Add
With NewRow
    .Range(1) = date
    .Range(2) = 378
    .Range(3) = 678
    .Range(4) = 897
End With

Но не могу заставить его работать для определенной c строки на стол

Спасибо

Answer 1

Замените

Set NewRow = tbl.ListRows.Add

на

Set NewRow = tbl.ListRows.Add(1)

Если вы не укажете позицию, строка всегда будет добавляться в конец. (Вы указали это прямо в первом фрагменте.)