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!