Zeilen löschen

ich möchte mittels folgenden Code in einem Tabellenblatt Zeilen markieren und löschen.
Die Anzahl der Zeilen ist von mal zu mal verschieden, daher keine absoluten Bezüge möglich.

Sub
Range("A5").Select
ActiveCell.EntireRow.End(xlDown).Delete
end sub

Dies klappt aber nicht.
Wer kann mir einen Tipp geben?

Vielen Dank