Simple Loop command

Hi All,

Really simple question here. I'm trying to delete a row if the value in the Column 62 is 0.

Here's what I have so far:

Sub findlast300()
Dim row As Integer
row = 3
For i = 1 To 9000
If Cells(row, 62) = 0 Then

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

End Sub

It runs ok and deletes the row but doesn't seem to recognise when the value in column 62 (BJ) is equal to 1.

can anyone help?

Thanks