Selecting certain cells and pasting down formula

[waxb18]

My data has some formula which need pasting down.

The data is from Column L through to Q and needs pasting to the bottom of the the data. Ive tried playing around with a "DO" Function mixed in with a "LOOP" but to no avail.

So far this is what ive got:

Range("Q1").End(xlDown).Select
Range("L7572:Q8296").Select

Selection.AutoFill Destination:=Range("L7572:Q8296")
Range("L7572:Q8296").Select

But this will not work tomorrow when i paste new data to the bottom of this one.
Any ideas would be much appreciated

 

[TiaXL]

What do you mean? you have data in L:Q and a formula in R that needs to go to the bottom of the data in L:Q ?

IF so write your formula in R1 then do

Range("Q1").SELECT
selection.end(xldown).select
activecell.offset(0,1).select
range(selection,selection.end(xlup)).select
selection.filldown

 

[waxb18]

no my data is in A-k and formulae in L-Q

 

[VoG]

Perhaps like this

LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("L7572:Q7572").AutoFill Destination:=Range("L7572:Q" & LR)

 

[TiaXL]

no my data is in A-k and formulae in L-Q

well in that case just change the ranges I just mentioned so

write your formula in L1:q1

range("k1").select
selection.end(xldown).select
activecell.offset(0,1).select
range(selection,activecell.offset(0,5)).select
range(selection,selection.end(xlup)).select
selection.filldown

assign it to a button or something and click the button to update the formulas.

 

[waxb18]

Thanks guys both ways worked brilliantly
but VoGs is what im going for :D