Makro optimieren

DANKE an alle die mir beim ersten Makro geholfen haben.

Ich bräuchte noch eine kleine Hilfe:

und zwar sollen bei Ausführung des Makros die ersten 5 Zeilen erhalten bleiben (Spaltenüberschriften) und auch am Ende der Datensätze (Zeile 25000) sollen Summenformeln nicht mitgelöscht werden.

Weiß jemand Rat??

Hier das ansonsten echt gute Makro:

Sub Start()

Dim i%, Alle&

Worksheets(1).Select

Application.ScreenUpdating = False

Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row

For i = Alle To 1 Step -1

If Cells(i, 1) <> [D1] Then
Rows(i).EntireRow.Delete
End If

Next i

End Sub