Row Selection for deleting

[Murph]

Hi All
I have picked up some great code and assistance from this group. Thanks to
all the contributors.
I have code finding a particular criteria I want to reamove from a
spreadsheet but I also want to delet the next 3 rows after the instance.
Can someone add the correct code to the row with Apples in it followed by
the next 3.

Application.ScreenUpdating = False
Do
Set rng = Columns(7).Find("Apples")
If rng Is Nothing Then Exit Do
rng.EntireRow.delete
Loop

Thanks once again.

 

[Dave Peterson]

rng.EntireRow.delete
becomes
rng.resize(4,1).EntireRow.delete

 

[Murph]

Thanks Dave
Works a treat!!