【ExcelVBA】セルの連続カット＆ペースト（Ａ列の偶数列の値をＢ列の奇数列に移動）

Sub Macro1()
  With Worksheets("Sheet1")
    For i = 1 To 5
      .Cells(i * 2, 1).Select
      Selection.Cut
      .Cells(i * 2 - 1, 2).Select
      ActiveSheet.Paste
    Next i
  End With
End Sub

（実行前）
A B
----
1
2
3
4
5
6
7
8
9
10

（実行後）
A B
----
1 2

3 4

5 6

7 8

9 0