Sub Macro3()

ActiveCell.EntireRow.Copy

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False

End Sub



"J.W. Aldridge" wrote in message
...
keep getting runtime error....

want to copy active row and repaste values only.


Sub Macro3()

ActiveCell.Offset(Rowcount).EntireRow.Copy

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False

End Sub