Hallo,
was macht folgender Code?

Do While Application.CountA(Rows(i)) = False
Rows(i).EntireRow.Delete
Loop

Application.CountA(Rows(i)) = False 'zählt doch die zeilen; wieso kann man auf False prüfen?

mfg
Michael