Problem Copying Table Column to Another Table

I am trying to copy the first column of one table to the first column of another table.

The code first deletes all the data in the receiving table while preserving formulas. But when the new data is pasted the results extend beneath the table's total row. The table is not expanded to receive the new data.

Here is the code.

Sub CopyTableColumn()
    
    Dim loSource As Object
    Dim loTarget As Object

    Set loSource = Sheets("Sheet1").ListObjects("tblSource")
    Set loTarget = Sheets("Sheet1").ListObjects("tblTarget")
   
    On Error GoTo Continue                  'bypasses error if table is already empty
    Application.DisplayAlerts = False
    loTarget.DataBodyRange.Rows.Delete      'Deletes all data, leaves 1 row with formulas intact.
    Application.DisplayAlerts = True
Continue:

    loSource.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Copy Destination:=Range("tblTarget[[column1]]")
    
    Application.CutCopyMode = False
End Sub

Any help would be most appreciated.

Thanks!

...Upon further checking, I might need to Resize the table before pasting but I could use some help with that syntax.

Thanks, again for checking on this.

...SOLVED...I think. I just learned that when copying data into an existing table that the totals row must be turned off.

loTarget.ShowTotals = False

With that addition, the code above works. After new data is added we can turn totals back on with

loTarget.ShowTotals = True

Many thanks to all who were looking in on this problem.

tom