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