Delete multiple rows

[PJ Usher]

Excel 2000

Hi
I would like a macro to

Find a cell with unique criteria
Delete the row with the cell and 3 rows below.

Was able to find the cell
then delete the row with the cell but having difficulty deleting the 3 rows
below.

Currently I have:

Range(ActiveCell, ActiveCell.End(xldown).select
Selection.delete

Tried to code to select additional rows with row+3 in various configuration
but it gave me an errors.
Obviously I do not know enough.
Any help would be appreciated.

Thank you
PJ

 

[Gary Keramidas]

you can try this
Range(ActiveCell,activecell.Offset(3)).entirerow.delete

 

[PJ Usher]

Hi Gary
It works just the way I wanted.
You guys are great!!
Thank you very much

PJ