Hello from Steved

With the below macro how could I shift the cursor down 2 cells please.

Sub Broken()
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).EntireRow.Copy
Cells(ActiveCell.Row, 1).PasteSpecial
End Sub
Thankyou.