Macro to pull down formula from cells above new data?

[tonywatsonhelp]

Hi everyone,
thought this would be easy but struggling with it,

all I need is a macro that when run goes to the last cell with data in it in column f and pulls the formula down to fill the rows that have data in them, you can use column B for the row to stop.

basically I have a macro that adds new data to columns b to g and f is a simple formula, so I just need a macro to pull the formula down each time I add new data.

please help if you can

Tony

 

[revcanon]

You might try this:

Please test on a copy.

Sub test()

LastBRow = Range("B" & Rows.Count).End(xlUp).Row
LastFRow = Range("F" & Rows.Count).End(xlUp).Row
Range("F" & LastFRow).Copy
Range("F" & LastFRow + 1 & ":F" & LastBRow).PasteSpecial (xlPasteFormulasAndNumberFormats)

End Sub