セルのコピーと貼り付け。

指定したセルの情報をコピーするにはCopyメソッド、貼り付けにはPasteメソッドを利用します。
Pasteメソッドを引数指定なしで貼り付けた場合は、現在選択されているセルに貼り付けることになります。
貼り付けるセルを指定する場合は引数に貼り付け先のセルを指定います。名前付き引数を利用する場合はDestinationに貼り付け先を指定します。

'******************************************************************
'　セルの情報をコピー＆貼り付け
'******************************************************************
Sub CopyPaste()

    'A1の情報をコピー
    Sheets("Sheet1").Range("A1").Copy


    '選択したセル(B1)に貼り付ける
    Sheets("Sheet1").Range("B1").Select
    Sheets("Sheet1").Paste
    
    '貼り付け先(C1)を指定する。
    Sheets("Sheet1").Paste Sheets("Sheet1").Range("C1")
    
    '貼り付け先(D1)を指定する。(名前付き引数)
    Sheets("Sheet1").Paste Destination:=Sheets("Sheet1").Range("D1")

End Sub

　■実行前

　■実行結果