Dim rng as Range, lastrow as Range
set rng = Activesheet.UsedRange
lastrow = rng.rows(rng.rows.count).row
Cells(lastRow,1).EntireRow.Delete

would be a possibility.

or

Dim rng as Range
set rng = Activesheet.usedRange
rng.rows(rng.rows.count).EntireRow.Delete

--
Regards,
Tom Ogilvy

"DF" wrote in message
...
Is there a way to automatically locate the last row with
data and delete it?