Makro läuft nicht richtig

Sub Leerzeilen_Loeschen()
'Tool zum Löschen von Zeilen, die keine Daten oder 0 enthalten
'Variablen setzen:
Calculate
I = 1
Range("1:1").Select 'Zeilen löschen
Selection.Delete Shift:=xlUp
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
'löschen der letzten drei Zeilen
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(-3, 15)).Activate
Selection.Delete Shift:=xlUp
'Anzahl Schleifen ermitteln:
EndZeile = Selection.Rows(Selection.Rows.Count).Row - 3
'Leerzeilen löschen:
While I 

Und zwar werden die Leerzeilen nicht sauber gelöscht. Wenn in Spalte D und E nicht steht oder 0 dann soll die ganze Zeile gelöscht werden.
Das ging mal, aber nun läuft es nicht mehr sauber. danke für eure Hilfe!!!