Clear excel table based on number of rows

Question

Hello,
I am trying to clear contents of the table(A) if there is less than 2 rows present in the table.

With sheets("Doc").ListObjects("A")
if A.Range.Count <2 then
A.DatabodyRange.ClearContents

Answer 1

Try something like this:

Dim ws As Worksheet  
Set ws = Sheets("Doc")  
Dim t As ListObject  
Set t = ws.ListObjects("A")  
      
If t.DataBodyRange.Rows.Count < 2 Then  
   t.DataBodyRange.ClearContents  
End If