Copy Down Formula - making it dynamic

[waxb18]

Morning All,

I have the function below that i use to copy down a cell to end of the column.

LR = Cells.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("A3").AutoFill Destination:=Range("A3:A" & LR)

However i want to make this dynmanic as the Range may not always be from A3.
What i ideally need to do have is something like:

Range(Activecell).AutoFill Destination:=Range("ActiveCell:A" & LR)

Can you help?

 

[Norie]

Try this.

LR = Cells.Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
ActiveCell.AutoFill Destination:=Range(ActiveCell, Range("A" & LR))