Combinations

Sub combin()
mx = 1
    For a = 1 To 10
        For b = a + 1 To 10
            For c = b + 1 To 10
                For d = c + 1 To 10
                    Cells(mx, 1) = a
                    Cells(mx, 2) = b
                    Cells(mx, 3) = c
                    Cells(mx, 4) = d
                    mx = mx + 1
                Next
            Next
        Next
    Next
End Sub