Hello from Steved

How would I modify please the below to copy an entire row Thankyou.

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