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

--
Don Guillett
SalesAid Software

"Steved" wrote in message
...
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