エクセル マクロについて教えてください。

現在、A1〜A12に人の名前を書き、
ボタンを押すとランダムで2班に分けるマクロを作成していました。

以下現在入力しているものとなります。

Sub グループ分け()
Dim Total As Integer
Dim TmCnt As Integer
Dim Data1 As Variant
Dim Data2() As String
Dim i As Integer, j As Integer, k As Integer
Total = Cells(Rows.Count, 1).End(xlUp).Row
TmCnt = 2
Data1 = Range("A1:A12" & Total).Value
ReDim Data2(1 To Total)
Randomize
For i = Total To 1 Step -1
j = Int(Rnd * i) + 1
Data2(i) = Data1(j, 1)
Data1(j, 1) = Data1(i, 1)
Next i
i = 1
Do
For j = 1 To TmCnt
k = k + 1
Cells(i, j + 2).Value = Data2(k)
If k = Total Then Exit Sub
Next j
i = i + 1
Loop
End Sub


このように入れていたのですが、
ボタンを押すと、セルCとDに出力されます。

これをJとKあたりに出力するには
どの部分を直せばよいのでしょうか。
ご教示お願いします。

No.1 ベストアンサー 回答者： dotたんじろう 回答日時： 2020/05/26 23:15

Cells(i, j + 2).Value = Data2(k)

の+2の部分を8にしてみて下さい

Cells(i, j + 2).Value ていうのは
A列から行(縦)、列+2(横)なのでＣ列に
表示されます