How to stop a table from being deleted when setting a range?

Originally Posted by sktneer

Maybe you can try something like this.....

ActiveSheet.ListObjects("Tablica1").ListRows.Add
Worksheets("Sheet1").Range("A2:B2").Value = Worksheets("Sheet1").Range("A1:B1").Value

No, this doesn't work because it resizes the table (adds another row). The table needs to keep its original dimensions. After running this code, the table is in range A2:B3 instead of the original range A2:B2.
It partially worked because the table wasn't deleted after running the code.