I did not design this macro and the designer is not available yet. Maybe you can help me.
Currently the
Cells(LastRow - 1, i + 1).FormulaR1C1 = "=RC[-1]/R[-13]C[-1]-1"
is being copied to all rows.
What line needs to be changed in order to copy this formula only to the last 26 rows?

Thank you.

Application.ScreenUpdating = False
Dim LastColumn, LastRow As Integer
Cells.MergeCells = False
Rows("1:3").Delete Shift:=xlUp
Columns("A:A").Delete Shift:=xlToLeft
LastColumn = Range("IV1").End(xlToLeft).Column
LastRow = Range("A65536").End(xlUp).Row + 1

For i = 2 To (LastColumn + LastColumn - 1) Step 2
Columns(i + 1).Insert
Cells(1, i + 1).Value = "% of Grth"
Columns(i + 1).NumberFormat = "0%"
Columns(i + 1).ColumnWidth = 4.14
Cells(LastRow - 1, i + 1).FormulaR1C1 = "=RC[-1]/R[-13]C[-1]-1"
Cells(LastRow - 1, i + 1).Select
Selection.AutoFill Destination:=Range(Cells(2, i + 1), Cells(LastRow - 1, i + 1)), Type:=xlFillDefault
Next i

Hi Joe

This maybe what you want
ie change

Selection.AutoFill Destination:=Range(Cells(2, i + 1), Cells(LastRow - 1, i + 1)), Type:=xlFillDefault

to
Selection.AutoFill Destination:=Range(Cells(LastRow - 25, i + 1), Cells(LastRow - 1, i + 1)), Type:=xlFillDefault


Is that it ??


MTB