Actually it doesn't test again after deletion:
Snippet of solution code:
Rows(intRow).Select
' And delete it!!
Selection.Delete
End If
' Increase the row counter by 1
'intRow = intRow + 1
Ml is correct as well using xlshiftup(down) will prevent this logic error as well.
but If I had to choose I would prefer looping end to start end inspecting the row below
If Cells(intRow, 8) >= Cells(intRow - 1, 8) Then
This will reduce the instructions by 1 and in a loop run this often that is a legal argument to me.
(edit: added code tags to single line of code)