PDA

View Full Version : Delte a specific column and does not delete the top row



jffryjsphbyn
06-13-2013, 01:34 PM
Hello,

I would like ask help from you guys. I have encountered a problem that I cannot delete a specific column only and also does not delete the top most row of the active sheet. I wanted to delete all data in columns A:C and K:W but I have tried so many codes I cannot pursue it. Please help. Here's the code. All characters in Bold format the problem that I encounter.



Sub Start()
'
' Start Macro
'

'
Sheets("SEGREGATION").Select
Cells.Select
Selection.ClearContents
Sheets("UNCLASSIFIED").Select
Cells.Select
Range("A13").Activate
Selection.ClearContents

Sheets("CLASSIFIED").Activate
Columns("A:C").Activate
Columns("K:W").Activate
ActiveSheets.UsedRange.Offset(1, 0).ClearContents
Sheets("INSTRUCTIONS").Select

Thank you in advance.

-Jeff

snb
06-13-2013, 02:00 PM
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