Clear data fom multiple tables

Hi All,

I have two tables in one worksheet which I want to clear the data, leaving one row below the headers, before importing/updating the data into the tables.

I'm using the following code, which works, but would like a more streamlined approached to achieving the same results.

Sub cleartable()

Dim Table1 As String, Table2 As String

Table1 = "ABCResults"
Table2 = "DEFResults"


With Range(Table1).ListObject
    If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.Delete
        End If
    End With
    
     With Range(Table2).ListObject
    If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.Delete
        End If
    End With
        
End Sub

Any help appreciated

Cheers

Dean

Is this short enough for you?

not sure if your tables are on a worksheet with codename sheet1 but replace sheet1 with the actual sheetname
you say there are 2 tables (listobjects) on that sheet in total. so listobjects can be handeled by name or by number.
listobject(1) and listobjects(2) will be the number id's of your tables, a small loop will discard their databodyrange

Sub cleartable()

For lObj = 1 To 2
    If Not Sheet1.ListObjects(lObj).DataBodyRange Is Nothing Then Sheet1.ListObjects(lObj).DataBodyRange.Delete
Next

End Sub

Thanks Roel,

very short and works a treat.

Cheers

Dean