It must be Friday. Drawing blank!?

Trying to set up code so that where-ever my cursor is positioned, I can
insert 2 formatted rows. Since the rows can be required "anywhere", the
formatting needs to reflect the row positioning of the new lines.

If someone would kindly help me get started...................

What I have now is:

Rows("65522:65523").Select
Selection.Insert Shift:=xlDown

Range("A65522").Select
ActiveCell.FormulaR1C1 = "^^"
Range("A65523").Select
ActiveCell.FormulaR1C1 = "^^"
etc..............................