Hi,

In which case it sounds like you want this

FirstRow = Range("A2").End(xlDown).Row
lastrow = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
Rows(FirstRow & ":" & lastrow).EntireRow.ClearContents


Mike

"J.W. Aldridge" wrote:

This one takes me to the last cell used.
I need the cursor to go to the next empty cell.
Then clear everything to the right and below.

Range("A2").Select
Selection.End(xlDown).Select