Delete value for some column

[JONvdHeyden]

Perhaps;

Public Sub ClearStuff()
    Const lngHeader As Long = 1 '< Headers in this row
With ActiveSheet
        Intersect(.Range("A:B,G:Y"), .UsedRange).Offset(lngHeader).ClearContents
    End With
End Sub