Как заменить формулы на результаты их вычислений?

1. Вариант
   code: #vba

   Range("A1:A10").Value = Range("A1:A10").Value

2. Вариант
   code: #vba

   Range("A1:A10").Copy
   Range("A1:A10").PasteSpecial Paste:=xlValues
   Application.CutCopyMode = False

В некоторых случаях, например, при работе с датами, результаты выполнения двух макросов, могут различаться.