Delete value for some column

[reza_doang]

i have a table from col A - col Y,
using vba i want to delete value/clear contents from col A - col Y except col C, D, E, F and headers.

thanks

[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