Kann MAKRO Nicht Umschreiben !?

Sub t()
Dim a As Long
Application.ScreenUpdating = False
For a = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(a, 4).Value = 0 Then Rows(a).Delete
Next a
Application.ScreenUpdating = True
End Sub

für meine Datei - https://www.herber.de/bbs/user/41853.xls.
Jedoch möchte ich das MAKRO nicht für Zeile 4 bzw. Zeile D sondern für Zeile 5 bzw. Zeile E !!!!!
Wer kann es mir kurz umschreiben !?
Ich bin immer noch nicht in der Lage dazu & bekomm`beim versuchen nur einen heißen Kopf !!!
Mit Besten Wünschen & Weiterhin Viel Erfolg :
Leo van der Haydn