Wo ist der Fehler? (VBA)

Sub Leerzeilen_löschen2()
Hallo zusammen,
ich bin in den letzten Wochen zwar besser geworden, aber leider finde ich noch nicht alle Fehler, die ich in VBA mache.
Mit der folgenden Funktion soll zuerst überprüft werden, ob die aktive Zelle keinen Rahmen hat. Ist dies der Fall, soll die Schleife sofort unterbrochen werden ( hab ich mit GoTo Ende versucht).
Andernfalls tritt der Fall Else ein.
Wenn ich die Funktion starte, überspringt Excel immer meinen GoTo-Befehl, auch wenn die Bedingung "kein Rahmen" erfüllt ist.
Weiß jemand warum?

Sub Leerzeilen_löschen2()
Dim i As Long, Zeile As Long
Zeile = Cells(Rows.Count, 4).End(xlUp).Row
For i = Zeile + 1 To Zeile + 1 Step 0
Cells(i, 4).Select
If ActiveCell.BorderAround = False Then
GoTo Ende
Else
If Cells(i, 4).Value = "" Then
Cells(i, 4).EntireRow.Delete
End If
End If
Next i
Ende:
End Sub