コピペと値貼り付け

■普通にコピペ
（例）Sheet1のB1~D4の範囲をSheet2のB2セルを起点に貼り付ける
※関数も自動でセルの番地変換して貼り付けてくれるようだ

Sub test5()
    Worksheets("Sheet1").Range("B1:D4").Copy Worksheets("Sheet2").Range("B2")    
End Sub

■値貼り付け
（例）Sheet1のB1~D4の範囲をSheet2のB2セルを起点に値貼り付けする
　　※貼り付け後、コピー元がコピーモードで選択されている状態なので
　　　最後にコピーモード選択解除の処理を入れる

Sub test6()
    Worksheets("Sheet1").Range("B1:D4").Copy
    Worksheets("Sheet2").Range("B2").PasteSpecial Paste:=xlPasteValues
    'コピー元のコピーモード選択を解除
    Application.CutCopyMode = False     
End Sub