The following code inserts a row below the selected row, and copies the formula of the row above into it.
Dim Rw as Integer Rw = ActiveCell.Row Selection.Insert Shift:=xlDown Rows("" & Rw - 1 & ":" & Rw - 1 & "").Copy Rows("" & Rw & ":" & Rw & "").Paste
However, I need to alter this to work for inserting more than one row at a time.
ie. the user selects 'x' number of rows and 'x' rows are inserted below (in the same way 'Insert Row' works in Excel) and the row above the selection is copied down.
I can't figure out how to do it. Is this possible?