'A1のセルの内容をC10のセルにクリップボード経由で貼り付けます。
Sub 貼り付け1()
Range("A1").Copy
ActiveSheet.Paste Range("C10")
End Sub
'A1のセルの内容をC10のセルにクリップボード経由せずに貼り付けます
Sub 貼り付け2()
Range("A1").Copy Range("C10")
End Sub
'A1のセルの内容をC10のセルに書式のみ貼り付けます
Sub 貼り付け_書式のみ()
Range("A1").Copy
Range("C10").PasteSpecial xlPasteFormats
End Sub
'A1のセルの内容をC10のセルに数値の加算を行って貼り付けます
Sub 貼り付け_加算()
Range("A1").Copy
Range("C10").PasteSpecial , xlPasteSpecialOperationAdd
End Sub
'A1のセルの内容をC10のセルに画像として貼り付けます
Sub 貼り付け_画像()
Range("A1").CopyPicture xlScreen, xlPicture
ActiveSheet.Paste Range("C10")
End Sub