excel vba copy values range to another range
Sub TransferValuesOnly()
Worksheets("Sheet1").Range("A1:Z100").Copy
'PasteSpecial Values Only
Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues
'Clear Clipboard (removes "marching ants" around your original data set)
Application.CutCopyMode = False
End Sub