VBA code to insert below a row with the formulas but not the values

[ragavisr94]

Hello everyone,

I am trying to add a new row below an existing row. This should copy the formulas from the previous row, but not the values.

The code I have so far inserts a row above and not below. Please help me with this.

 

[Yongle]

deleted by Yongle
will update shortly

 

[Yongle]

try this

Sub CopyRow()
    With ActiveCell.EntireRow
        .Offset(1).Insert , CopyOrigin:=xlFormatFromLeftOrAbove
        .Copy .Offset(1)
        On Error Resume Next
        .Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
        On Error GoTo 0
    End With
End Sub