VBA次の一歩

Option Explicit
Sub 金運アップ()
Dim i As Long    '千の値
Dim j As Long    '百の値
Dim k As Long    '十の値
Dim l As Long    '一の値
Dim Goukei As Long '４数字の合計
Dim Bango As Long '４数字

Dim Siteibango As Long
Dim m As Long     '行を表す
Dim n As Long     '列を表す
Dim cunt As Long '２４の組合せをカウントする

Worksheets("入力").Activate

Siteibango = Cells(7, 3) '組合せを数える番号

Worksheets("組合せリスト").Activate

Cells.Select
Selection.ClearContents
Range("A1").Select

m = 1                    '行の初期値
n = 1
cunt = 0
For i = 0 To 9
    For j = 0 To 9
        For k = 0 To 9
            For l = 0 To 9
                Goukei = i + j + k + l
                If Goukei = Siteibango Then
                
                    'Cells(m, n) = i * 1000 + j * 100 + k * 10 + l
                    Cells(m, n) = Format(i * 1000 + j * 100 + k * 10 + l, "'0000")
                    'Siteibango = Format(i * 1000 + j * 100 + k * 10 + l, "'0000")
                    'MsgBox Bango
                    m = m + 1          '１行下に移動
                    cunt = cunt + 1     '２４の組み合わせをカウントする
                End If
                If m > 50 Then          '50行目まで表示した時の処理
                    n = n + 1           '１列右に移動
                    m = 1               '１行目に戻る
                End If
            Next l
        Next k
    Next j
Next i

'MsgBox "24の組合せは…" & cunt & "個でした"

'Worksheets("入力").Activate
Worksheets("入力").Cells(9, 3) = cunt
End Sub