How to clear the cells only from the table

[S P P]

Good Morning!

How to clear the cells only from the table as in the example

 

[Belleke]

Do you mean this?

Sub CleanCells()
With Sheets("Plan1").ListObjects("Tabela1")
    If Not .DataBodyRange Is Nothing Then .DataBodyRange.ClearContents
End With
End Sub

 

[S P P]

Only clear C to Q | X to Ab

 

[p45cal]

Change the 28 in your code to 5.

 

[Belleke]

Hi,
Like this?

Sub CleanCells()
For i = 3 To 17
    Sheets("Plan1").ListObjects("Tabela1").ListColumns(i).DataBodyRange.ClearContents
Next i
For i = 24 To 28
    Sheets("Plan1").ListObjects("Tabela1").ListColumns(i).DataBodyRange.ClearContents
Next i
End Sub

 

[S P P]

Belleke

It worked

Thank you for your help

 

[Belleke]

Glad to help.