Schleifenende dynamisch

Sub Zeilen_Loeschen()
Dim ende As Integer
Dim spalte As Integer
ende = 40
spalte = 1
For i = 1 To ende
If Cells(i, spalte) = "" Then
Range(Cells(i, spalte), Cells(i, spalte)).Select
Selection.Delete Shift:=xlUp
ende = ende - 1
i = i - 1
End If
Next
End Sub

Jetzt mein Problem. Die Schleife läuft bis 40 durch, obgleich ich innerhalb der Schleife das ende jeweils reduziere, sobald eine Leerzelle gefunden wurde.
Wie kann ich das ende der Schleife dynamisch gestalten und innerhalb der Schleife variieren?
Danke für eure Hilfe.
Gruß Jens