jokris

01-10-2016, 10:54 AM

When I use this VBA code, I copy the first row (with many formulas, like one in B1 that says = A1*2) and add rows where my marker is. In cell A2 I specify how many rows I want to be added.

Sub addnewrows()

With ActiveCell.Resize([A2]).EntireRow

.Insert

.Offset(-[A2]).Value = Rows(1).FormulaR1C1

End With

End Sub

If A2 equals 3, the macro adds 3 rows.

If my mouse is on row 10, then new rows will be added to 10, 11 and 12.

Problem is that cell reference in row 11 and 12 is not correct.

Row 10 has formula A10 * 2 (correct)

Row 11 has formula A12 * 2 (not correct)

Row 12 has formula A14 * 2 (not correct)

I would like the formula number to equal row number

Sub addnewrows()

With ActiveCell.Resize([A2]).EntireRow

.Insert

.Offset(-[A2]).Value = Rows(1).FormulaR1C1

End With

End Sub

If A2 equals 3, the macro adds 3 rows.

If my mouse is on row 10, then new rows will be added to 10, 11 and 12.

Problem is that cell reference in row 11 and 12 is not correct.

Row 10 has formula A10 * 2 (correct)

Row 11 has formula A12 * 2 (not correct)

Row 12 has formula A14 * 2 (not correct)

I would like the formula number to equal row number