Excel VBA Code not compiling

Question

I am trying to run a loop. I've tried For...Next, and Do While....Loop. Although the For and Do While lines are obviously in the code, Excel says compiler error, no For (or Do While) found.

My Code:

Option Explicit

Sub DelEmptyRows()

Dim i As Integer 

Do While Cells(i, 1) <> 515 

    If Cells(i, 1) = "" Then 

        Rows(i).Select 

        Selection.Delete shift:=xlUp 

        i = i - 1 

    End 

    i = i + 1 

Loop 

End Sub

Answer 1

You must end the If ... Then block with End If instead of just End:

Sub DelEmptyRows()
    Dim i As Integer
    Do While Cells(i, 1) <> 515
        If Cells(i, 1) = "" Then
            Rows(i).Select
            Selection.Delete shift:=xlUp
            i = i - 1
        End If
        i = i + 1
    Loop
End Sub

Answer 2

duh.

Thank you so much