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

Originally Posted by xlnitwit

Hi,

You could write one cell at a time. If your table has more columns, you can write all bar one column using an array and then write the last one. As long as you do not overwrite the entire table at once, it will remain in place.

The range is much larger and this method would be too difficult for me to code. However, I added a line to sktneer's code:

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

And after this the problem seems to be solved. Thanks everyone.