Macro for New Line and Continued Formulas

[Whylucky]

Hey Guys,

So I am trying to get a macro that can create a new line below a selected cell and move the formulas down with it? The formulas are in cells AG:AP and i would like them to fill in the new created line. Is this possible? I have been looking around and it seems like it is hardcoded to certain cells. Thanks in advance your help is always greatly appreciated.

 

[Worf]

Hi

Please test this; note that if you write your formulas like
=SUM(d4:g6)

When dragging, cell references will change; but if the formula is like
=SUM($d$4:$g$6)

Cell references remain the same when dragging.

Sub NewLine_Formulas()


Dim r%
' inserts row below active cell
' drags formulas down


ActiveCell.Offset(1).EntireRow.Insert
r = ActiveCell.Row
Range("ag" & r & ":ap" & r).AutoFill Range("ag" & r & ":ap" & (r + 1)), 0


End Sub