セルの範囲のコピー貼り付け

セルの範囲のコピーと貼り付け

'セルB1～D3の範囲をコピー貼り付け
Sub CopyCell()
    Range(Cells(1, 2), Cells(3, 4)).Copy Destination:=Cells(5, 6)
End Sub

実行した結果がコチラです。