makro: drei zeilen weniger

ich hab in makro aufgezeichnet

Range("A10").Select
Selection.End(xlDown).Select
ActiveCell.Columns("A:N").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select

es bewirkt dass wenn die zelle "A" nicht leer ist die zeile (A-N)
markiert wird.
allerdings geht die markierung drei zeilen zu hoch.
Wie kann ich das machen das von der aktuellen markierung, von oben, drei zeilen abgezogen werden?
mfg
Andi