'セルB1~D3の範囲を切り取り貼り付け Sub CutCell() Range(Cells(1, 2), Cells(3, 4)).Cut Destination:=Cells(5, 6) End Sub Range("B1:D3")の範囲をカットして、Range("F5:H7")に貼り付けました。