Valor da pasta de cópia VBA apenas
Sub CopySheetPasteAsValues()
Sheets("Sheet1").Cells.Copy
Sheets("Sheet1").Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
VasteMonde