VBA Excel: Clear the entire col expect A1

[harky]

Need some help,

How to Clear the entire col expect A1 ? The column contain data & empy so i want to clear the whole column except a1

btw, i had

column A
column C
column D
column E
column I
column J
column K

need to clear

 

[harky]

This work great too..

What about this single line of code...

Intersect(Range("2:" & Rows.Count), Range("A:A, C:E, I:K")).ClearContents

You can add worksheet and workbook references if you do not always want the data's worksheet always active.