Hello. Please help.

I am trying, in a single VBA code line if possible, to
copy the entire sheet and "paste special - values" right
over the top of the existing data.

My code follows, but I get an error even though it seems
to me it should work. Can someone correct my code or
please supply me with a functional equivalent?

Cells.Copy Destination:=Range("A1").PasteSpecial _
(Paste:=xlPasteValues)

Thanks much in advance for your example code and
assistance.