Sub セルに値のみ貼り付ける()

    Range("A1").PasteSpecial Paste:=xlPasteValues

End Sub