I would do it 1 or 2 ways.

If you want to completly delete all rows below Row 2. Use this:

Sub DeleteRows()
Rows("3:" & Rows.Count).Delete Shift:=xlUp
End Sub

If you just want to clear the contents of the cell, but still preserve the
formatting of the cell. Use this:

Sub ClearData()
Rows("3:" & Rows.Count).ClearContents
End Sub

This code will work for any version of Excel. Hope this helps! If so, let
me know, click "YES" below.


--
Cheers,
Ryan


"Paul Kraemer" wrote:

Hi,

I am using Excel 2007. I want to write a VBA Subroutine to delete/clear all
data on a particular worksheet except for the first two rows.

This worksheet can have any number of rows filled with data. Can anyone
give me a hint on how I can select and clear all rows containing data except
for the first two rows?

Thanks in advance,
Paul
--
Paul Kraemer