Sub TableClearData()

Dim tbl As ListObject
Dim ws As Worksheet
Dim LR As Long


Set ws = Sheets("FrxDump")
Set tbl = Sheets("DataDump").ListObjects("Table2")
LR = ws.Range("A" & Rows.Count).End(xlUp).Row

If tbl.ListRows.Count >= 1 Then
    tbl.DataBodyRange.Delete
End If

ws.Range("A5:F" & LR).Copy Destination:=Sheets("DataDump").Range("A3")



End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *