Macro to AutoFill Formulas in a Specific Range

[Michael151]

Hello all,

Just need a little help with a macro that will autofill a formula to the end of another column. All the formulas in my worksheet are contained across row 8. I need the macro to autofill (copy down) each formula down the column until the end of text in column A. Column A could have as little as one row of text or thousands.

The code would be something like:

Range (“some number 8”).Select
Selection.AutoFill Destination: last row of text in column A

Any help is most appreciated – thank you!

 

[andiemac]

Code is based on formulae in row 8. I wasn't sure what columns they were in so you can adjust the "B8:H" section as needed.

Sub LstRow()
    Dim LR As Long
    Range("A8").Select
    ActiveCell.End(xlDown).Select
    LR = ActiveCell.Row

    Range("B8:H" & LR).Select
    Selection.FillDown
End Sub

 

[Michael151]

That did the trick - thank you!