Copy Active Row to Another Sheet and Paste Cell Values

[primagic]

Hi am using the following code to copy the active row from one sheet to another.

ActiveCell.EntireRow.Copy Destination:=Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Offset(1)
    MsgBox "Row has been archived", vbInformation, "Data Archived"

This works fine but it still copies the formulas. How can I ensure it copies only cell values?

Thanks

 

[SkipVought]

hi,

ActiveCell.EntireRow.Copy 

Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}