VBA kopiere i tom kolonne ned til hvor foregående kolonne slutter

Kære alle
Jeg kopierer noget data over i nyt faneblad og skal derefter udfylde en dato i samtlige rækker i dette nye udtræk.

Jeg kan naturligvis skabe mig en ny variabel der tæller antal rækker, men jeg kan ikke forstå dette ikke kan løses nemmere.

Jeg sætter datoen ind i AC2 og skal derefter i AD2 udregne forskellen mellem AB2 og AC2:

Range("AC2").Select
ActiveCell.FormulaR1C1 = LagerFilterdato
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("AD2").Select
ActiveCell.FormulaR1C1 = "=-RC[-2]+RC[-1]"
Selection.NumberFormat = "General"
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))

Udfordringen er min selection.end(xldown) som kopierer data til sidste række i fanebladet (= ca nummer 1 mio). Den skal typisk kun kopiere til række 70 ca.
Hvis jeg i stedet bruger noget i retning af:
Selection.AutoFill Destination så skifter datoen med en dag pr række.
Kan jeg evt skrive datoen på en bestemt måde (bemærk den kommer fra en variabel) så Excel ikke tæller op hvis jeg bruger Autofill - og hvordan styrer jeg variabelt hvor langt ned den skal udfylde?