Delete certain range on a table if criteria is not met

[Celticfc]

I have a table named “employees” (A:AZ3000).

I would like VBA to clear contents of A:S of employees that are not “Manager” in Column C.

So if Colum C Row 7, is not “Manager” - Columns A7:S7 should clear contents and this should repeat up to row 3000.

I found some codes online but could not change them to my need. Many thanks in advance.

 

[Joe4]

Here is one way:

Sub MyClearContents()

    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Loop through all rows from 2 to 3000
    For r = 2 To 3000
'       Check to see if "Manager" is not in column C
        If Cells(r, "C") <> "Manager" Then
'           Clear columns A:S
            Range(Cells(r, "A"), Cells(r, "S")).ClearContents
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub