Habs soweit geschafft, aber es endet in einer Endlos-Schleife :(
For iZeile = 1 To inLetzteZeile
If .Cells(iZeile, 1).Value = "" Then
.Cells(iZeile, 1).Delete Shift:=xlUp
iZeile = iZeile - 1 'Überprüfung der hochgeschobenen Zeile
End If
Next iZeile