Use the resize method

activecell.Resize(2).EntireRow.delete

--
Regards,
Tom Ogilvy

"Tomek" wrote in message
.. .
Hello,

I wonder how to delete 2 rows if there is zero value in the first row?
I know how to delete one row with zero value but I do not know how to
delete to rows.
There are many rows with values. If there is a row with zero value I want
to delete the row with zero value and next row with whatever value.
I have several thousands rows.

example
A
1
5
0 DELETE
2 DELETE
2
2
0 DELETE
5 DELETE

Thank you very much in advance for help

Tomek