Dynamischer Bereich VBA

[SZFler]

Hallo,

folgende Frage: Ich habe ein Makro aufgezeichnet welches mir in einem Bereich ein Datum ausgibt.
Wie kann ich den Range(D6:D26") dynamisch gestalten 
   
Selection.AutoFill Destination:=Range("D6:D26"), Type:=xlFillWeekdays

damit von der aktiven Zelle bis 20 Zeilen darunter der Bereich genommen wird, anstatt immer D6 bis D26.

Vielen Dank!

[Elex]

Hallo

Versuch es mal so.
ActiveCell.Resize(21)

[SZFler]

Hallo Elex,

super danke, hat funktioniert! 

lg