I'm trying to paste a formula with a dynamic range, it could be 2000 rows to
10000 rows (see below). I tried defining LastRow using a Function but it
won't work. Anyone have a better way? The brute force alternative is to set
a large range, which works, but is messy because I want to then sort in a way
that leaves me with up to thousands of empty cells in the wrong place.

ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveCell.Range("A1:A(LastRow)").Select
ActiveSheet.Paste


Thanks for any ideas.

Alan