以下に示すように、列 F のいずれかのセルの値がゼロの場合、全体を削除しようとしています。ただし、コードは 3 行目でデバッグを取得し続けます。
' DELETES ALL ROWS FROM F2 DOWNWARDS WITH THE VALUE = 0 IN COLUMN F
Last = Cells(Rows.Count, 6).End(xlUp).Row
For i = Last To 1 Step -1
If (Cells(i, 6).Value) = 0 Then
Cells(i, 6).EntireRow.Delete
End If
Next i