Delete find "Grand Total"
 

The offset was moving to the next line before deleting.

Sub DeleteGrandTotalPlus()
Dim oFound As Range

Set oFound = Cells.Find("Grand Total")
If Not oFound Is Nothing Then
oFound.Resize(4, 1).EntireRow.Delete
End If

End Sub
"Duncan J" wrote in message ...
I'm trying to Delete the row "Grand total" and the 3 rows below it. I tried this but it's ot working.

Dim oFound As Range

Set oFound = Cells.Find("Grand Total")
If Not oFound Is Nothing Then
oFound.Offset(1, 0).Resize(3, 1).EntireRow.Delete
End If

Thanks a lot,
DJ