an effective way to pull all formulas down to last row in sheet?

[tonywatsonhelp]

Hi everyone,

i'm looking for a Macro that when run will pull all formulas in the sheet (Say Column A to Z) down to the last row.

so full explanation,
data is add to the sheet from several places,
lets say last time data was added formulas where pulled down to rows 20, now i add 25 more rows, i'd likw a macro that can pull each column with a formula in it down to last row

My headers are in row 10 so first row with formulas is 11
if i was writing in English i would say this

find last row of column A

for each column in A to Z if row 11 = a formula the pull formula down to last row.

please help if you can

Thanks

Tony

 

[arthurbr]

Why not use the Excel Table tool? Formulas will extend automatically.No need for extra VBA.
Select the range - Table - Insert - Follow the wizard

 

[MARK858]

Try something like the below, although you might want to turn off calculations and screenupdating while the code is running.

    Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To 26
        If Cells(11, i).HasFormula = True Then
            Cells(11, i).Resize(LastRow - 10).FillDown
        End If
    Next

 

[tonywatsonhelp]

Thanks Mark,
This is working great
Tony