Leere Zeilen löschen/Problem

Sub LeerZeilenLöschen()
Dim i%, Alle%
Application.ScreenUpdating = False
Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For i = Alle To 1 Step -1
Do While Application.CountA(Rows(i)) = False
Rows(i).EntireRow.Delete
Loop
Next i
End Sub

Dieses ist echt gut, wenn ich manuell Daten eingebe, löscht er astrein.
In den kopierten Daten sind folgende Formeln :
=WENN($D6>0;D6-$H6;"")

liegt es daran ??
Habt ihr eine Ahnung wie ich das Lösen kann`??
Wenn ich in den leeren Zellen so mal alle lösche und danach den Sub laufen lasse, geht es.
Kann ich das anders lösen mit den kopieren der Daten ?

Gruß, Ralf F.