Warum Fehler "End If" ohne "If-Block"?

Sub CommandButton1_Click()
Dim Zeile As Integer
Zeile = 15
Do
Zeile = Zeile + 1
If range("A15").Value <> """" Then
range("C15").FormulaR1C1 = "=(1/(1+R6C2/R7C2)^RC[-2])"
Exit Do
End If
Loop
End Sub