deleting unwanting rows

[yerby]

I am having difficulty remembering the code to delete rows I do not require in a large spreadsheet. If the cell to the left of the active cell contains a certain word (say "NONE") I want to delete the entire row plus the three rows beneath.
Can anyone help

Thanks

 

[Al Chara]

Try the following code:

If ActiveCell.Offset(0, -1).Value = "NONE" Then
Range(ActiveCell, ActiveCell.Offset(3, 0)).Select
Selection.EntireRow.Delete
End If

Hope this helps.
Kind regards, Al.