Dim rng as Range
set rng = Cells(1,1).End(xlup)(2)
Range(rng,Range("A65536")).EntireRow.delete

--
Regards,
Tom Ogilvy

"Tempy" wrote in message
...
Hi,

could somebody help me some code?

I can go to the last cell but i am not sure how to select all rows
below, as i have to delete them.

Tempy

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!