Once you have selected a cell, you have defined the active row. This macro
will clear all the cells in all the rows from the row below the active row
thru row 65536. You must ,however, select the last row of data before
running the macro.


Sub clearit()
i = Selection.Row + 1
Range(Cells(i, 1), Cells(65536, 255)).Select
Selection.Clear
End Sub
--
Gary''s Student


"Lost in Alabama" wrote:

Hello!

I am trying to create a section of macro to find the first row of data from
the bottom of the sheet up, select one row down from the ActiveRow to the end
of the sheet, then Clear the content of the selected rows. The row location
of the data is always different.

I have tried the folowing, but it does not work. I would greatly appreciate
help!

Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Rows("1:65536").EntireRow.Select
Selection.Clear