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

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

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