Вариант
Range("A1:A10").Value = Range("A1:A10").Value
Вариант
Range("A1:A10").Copy
Range("A1:A10").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
В некоторых случаях, например, при работе с датами, результаты выполнения двух макросов, могут различаться.