Можно так:
Код |
---|
Sub Кнопка1_Щелчок()
Worksheets(1).ListObjects("Таблица1").ListRows.Add AlwaysInsert:=True
[a2:d2].Copy
Worksheets(1).ListObjects("Таблица1").ListRows(Worksheets(1).ListObjects("Таблица1").ListRows.Count).Range.PasteSpecial Paste:=xlPasteValues, Transpose:=False
End Sub |
А если не хотите ничего менять, то можно попробовать заполнить первую строку (достаточно даже заполнить первую ячейку) в умной таблице и запустить макрос, после чего Excel будет автоматически определять добавленные значения, как значения в умной таблице.