Delte a specific column and does not delete the top row

[snb]

Can you please use codetags !!

Sheets("SEGREGATION").usedrange.ClearContents
Sheets("UNCLASSIFIED").Range("A13").ClearContents
intersect(Sheets("CLASSIFIED").usedrange,range("A:C,K:W").Offset(1, 0).ClearContents