数式の入ったセルと同位置に値としてコピーする

数式が入っているセルを選択して以下のプログラムを実行すると、そのセル位置に値としてコピーできます。

Sub Sample1()
    'セルを値としてその位置にコピー
    With Selection
        .Copy
        .PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub