[ChrisGT7]

Αν έχω καταλάβει σωστά, χρειάζεσαι όλους τους εξαψήφιους αριθμούς με ψηφία 0,1,2,3,4,5.

Δοκίμασε τον παρακάτω κώδικα αν σου φέρνει το επιθυμητό αποτέλεσμα:

Sub E3APSHFIOI()
    Dim I As Byte, J As Byte, K As Byte
    Dim L As Byte, R As Byte, M As Byte
    Dim T As Long: T = 1
    
    Application.ScreenUpdating = False
    For I = 1 To 5
        For J = 0 To 5
            For K = 0 To 5
                For L = 0 To 5
                    For R = 0 To 5
                        For M = 0 To 5
                            Range("G" & T).Value = Val(I & J & K & L & R & M)
                            T = T + 1
                        Next M
                    Next R
                Next L
            Next K
        Next J
    Next I
    Application.ScreenUpdating = True
End Sub