macro to insert copied row

[JLawrenc]

I have a sheet that contains a few formulas in each row. I frequently need to insert more rows up top so I copy row 2 (row one is title row) then insert it between row 2 and 3, then copy rows 2 and 3 and insert it again to add a few new rows with the formulas already entered. I'm sure I can do that with a macro but can't find how. Can I have some help?

 

[C Moore]

Why not highlight rows 3-5 and insert blanks rows. Then highlight rows 2-5 and press CTRL + D to fill down row 2 into the new 3 blank rows?

 

[JLawrenc]

That's what I currently do, I just thought It'd be cool to learn a shortcut for that. And I'm trying to learn more about macros and what all they can do.

 

[C Moore]

From the active cell, this will insert 3 blank lines and copy the formulas down. For a nice guide on assigning a shortcut go here, Assigning Excel Macros to Objects.

Sub insert_at_activecell()
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(3, 0)).EntireRow.Insert
    Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(3, 0)).EntireRow.FillDown
End Sub