Solved: Deleting Rows

[Anomandaris]

2 questions:

1) How to delete all Used rows except Row 1.
2) For Columns A to V, delete all used rows except row 1
For Columns W to Z delete all used rows except rows 1 & 2

Please advise

thanks

[Bob Phillips]

Untested

1)

[vba]
With ActiveSheet

.UsedRange.Rows(2).Resize(.UsedRange.Rows.Count -1).Delete
End With
[/vba]

2)

[vba]
With ActiveSheet

.UsedRange.Cells(2, 1).Resize(.UsedRange.Rows.Count -1, 22).ClearContents
End With
[/vba]

erc.

[Anomandaris]

Yup, you're right as usual!
Thanks a lot Xld!