to Copy the Entire Row

[Guest]

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

 

[Don Guillett]

Sub makerowvalues()
ActiveCell.EntireRow.Value = ActiveCell.EntireRow.Value
or
ActiveCell.offset(1).EntireRow.Value = ActiveCell.EntireRow.Value
End Sub

 

[Guest]

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

 

[Guest]

Gentleman I thankyou.