VBA コンボボックスの内容を三列（四行・十列間隔）に転記したい

Question

お世話になっております。
Excel　VBAにて下記のようなマクロを組みたいと思っております。

ComboBox1~6までを
ComboBox1 →C1
〃2 →G1
〃3 →K1
〃4 →C11
〃5 →G11
〃6 →K11
と転記しようと思っています。

Dim gyou As Long, retu As Long, n As Long
Dim cb1 As ComboBox

For n = 1 To 6
Set cb1 = UserForm1.Controls("ComboBox" & n)
gyou = 1
For retu = 3 To 11 Step 4

If cb1 <> "" Then  　　　　　　　　　　　　　　　　　　　　'ComboBoxの中に文字がはいっていたら
cb1.Copy　　　　　　　　　　　　　　　　　　　　　　　　　　　'ComboBoxをコピー
Worksheets("Sheet1").Cells(gyou, retu).PasteSpecial　　'セルに貼り付け

If retu = 11 Then　　　　　　　　　　　　　　　　　　　　　　'11列めになったら
gyou = gyou + 10　　　　　　　　　　　　　　　　　　　　　　　'行を+10する

End If
End If

Next retu
Next n

このコードだとエラーは起きないのですが、うまく転記されません。
どなたかご教授いただけると幸いです。

Comments

[y_waiwai]

うまく転機されないとは、どういう動作となるんでしょうか
そこらへん詳しく説明しよう

Answer 1

下記でどうでしょう。

列と行で2重ループ

    Dim n As Long, gyou As Long, retu As Long
    Dim cb1 As ComboBox

    For gyou = 1 To 11 Step 10
        For retu = 3 To 11 Step 4
            n = n + 1
            Set cb1 = UserForm1.Controls("ComboBox" & n)
            If cb1.Value <> "" Then
                Worksheets("Sheet1").Cells(gyou, retu) = cb1.Value
            End If
        Next retu
    Next gyou

あるいは、
コンボボックスでループ、行と列は計算で取得

    Dim n As Long, gyou As Long, retu As Long
    Dim cb1 As ComboBox

    For n = 1 To 6
        Set cb1 = UserForm1.Controls("ComboBox" & n)
        gyou = ((n - 1) \ 3) * 10 + 1
        retu = ((n - 1) Mod 3) * 4 + 3
        Worksheets("Sheet1").Cells(gyou, retu) = cb1.Value
    Next n

Comments

[nisvbv]

反応遅くなり申し訳ありません。

ご丁寧な回答ありがとうございました！