to Copy the Entire Row
 

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

to Copy the Entire Row
 

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

to Copy the Entire Row
 

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

--
Regards,
Tom Ogilvy


"Steved" wrote:

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

to Copy the Entire Row
 

Gentleman I thankyou.

"Steved" wrote:

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