请教！！！ 怎么拷贝数值而不拷贝其公式？？？

感动瞬间

请教各位高手，怎么修改一下一段代码，实现只拷贝数值而不拷贝其里面的公式或者函数？
End If
  If Target.Address = "$G$2" And [g2] <> "" Then
     If MsgBox("            您确定" & [f3] & "保存吗?                 ", vbYesNo, "提示!") = vbYes Then
       k = [a2]
       aR_n = Sheet2.[a65536].End(xlUp).Row + 1
       [a2:f2].Copy Sheet2.Cells(aR_n, 1)
       [a2:f2].Interior.ColorIndex = xlNone
       [c2:f2] = ""
       [a2] = k + 1
       [b2].Activate
     End If
  End If
End Sub


其中 b2 列用了函数=TODAY() 调用日期，
请教高手们， 如何实现只复制保存 [a2:f2] 中的数值，而不拷贝其函数公式。

谢谢！！！谢谢！！！ 谢谢！！！

00000excel

[a2:f2].Copy
Sheet2.Cells(aR_n, 1).PasteSpecial xlPasteValue
很多方法属性不知道的可以用录制宏去获得。