Macro to paste formulas, but not values

[simple?]

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!

[Solus Rankin]

try

Please Login or Register  to view this content.

[simple?]

That seemed to work, but it also carries down the values that I had in the row above it. If possible I'd like it to clear the inserted row of values and only take the formula in Column F.

Is there a way to manipulate the macro a little more to do this?

[Solus Rankin]

I think we might need to see your workbook. It might be the way you have the formulas.

[simple?]

Excel Macro Help_3.xlsm

Here is my file. I have assigned the "New Row" buttons to the macro's on the Sheet1.

If you need more info, let me know!

[Solus Rankin]

Please Login or Register  to view this content.

[simple?]

This now works, but only when I have the line that it is copying- inserting form- is filled out. When I try to add new row when the line above is empty then I get this error:

Microsoft Visual Basic Application Error: 400

Also, do you know of a way to make it unselect the line when the macro is done running? Currently it stays highlighted.

[simple?]

This now works, but only when I have the line that it is copying- inserting from- is filled out. When I try to add new row when the line above is empty then I get this error:

Microsoft Visual Basic Application Error: 400

Also, do you know of a way to make it unselect the line when the macro is done running? Currently it stays highlighted.

[Solus Rankin]

Where does it error out if the row is not completely filled out?

To fix the selection issue just put Range("A1").select right before end sub