Hi,

This is the macro that I have created:

Sub AddRow(section As Integer)
Dim A As Range, n As Long, F As Range: n = 11
Do Until InStr(1, Range("A" & n + 2), "SECTION " & section + 1)
n = n + 1: Loop
Rows(CStr(n)).Insert Shift:=xlDown
Rows(CStr(n - 1)).Copy
Rows(CStr(n)).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Range("G" & n - 1).AutoFill Destination:=Range("G" & n - 1 & ":G" & n)
End Sub

How do I get not only the format to paste, but also the formulas while leaving the inserted line blank- not copying the values from the line duplicated.

Is there a way to add something to my macro to do this? Column F is actually the only column that has a formula in it, so that specifically is what I would like pasted with the inserted row.

Let me know if I need to be more specific. Thanks for your help!