Clear contents across multiple sheets for constant Range

[Mohamedazees]

Dear Sir,

I need an Excel Macro to clear the contents from Sheet2 to Sheet2o, In the said worksheets I have Tables and the tables headers starting from Range A3 in all sheets and so on

I what to clear the contents of used ranges of all the sheets tables from Sheet2 to Sheet 20 except headers.

Thanks In advance

A.Mohamed

 

[Georgiboy]

You could try as below:

Sub test()
    Dim x As Long
    
    For x = 2 To 20
        Sheets(x).ListObjects(1).DataBodyRange.ClearContents
    Next x
End Sub