Marco to Insert & shift cells down at active cell and copy cell range

I have a scheduling spreadsheet that i constantly need to add more events to.
I have a template of cells that i use for each event and am currently inserting 5 blank rows and then coping and pasting the template cells into the blank rows.

I recently began using the marco below to copy the selected range at the active cell.

Range("AB3:AP7").Copy Destination:=Cells(ActiveCell.Row + 1, 1)

I would like to add the inserting and shifting cells down at the active cell to make this macro complete.

Any help is greatly appreciated.

Maybe:

Please Login or Register  to view this content.

Thank you so much. It works perfect!

You're welcome. Glad to help out and thanks for the feedback. Please comply with Forum Rules and mark this thread as SOLVED. See link for guidance.

http://www.excelforum.com/forum-rule...rum-rules.html