Hi,

This seems to work for me, unless I don't understand the problem:

Option Explicit

Sub findlast300()
Dim row As Integer
Dim i As Integer

row = 3
For i = 1 To 9000
If Cells(row, 62) = 0 Then

Rows(row).Delete Shift:=xlUp
Else: row = row + 1
End If
i = i + 1
Next

End Sub
abousetta