sorry - typo

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

This finds the last filled cell in column A.

If you already have a way to find the row to start deleting, then just use
that and set the result to the range variable rng. then use

Range(rng,Range("A65536")).Entirerow.Delete

--
Regards,
Tom Ogilvy


"Tempy" wrote in message
...
Hello Tom,
I think i did not make myself clear enough.

The data varies in amount of rows, so i cannot set the range to a
specific range.
Each time the code runs, it has to test to get the range and then delete
everyting below the data.

Tempy

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