find empty row and next 3 rows

HI,

this is what i have:

Sub test()
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

but i also like it to select the 3 rows folowing teh empty row and delete it and i cant find out how to do this, so i like some help

thanks B

Use this macro:

Please Login or Register  to view this content.

The macro runs on the active sheet.

Regards,
Karan

thanks,

it works like a charm