Sub MyCombin()
      Dim a&(), i&, j&, m&, n&, p&
      n = Val(InputBox("n =", , 20))
      m = Val(InputBox("m =", , 8))
      If n < m Or m < 1 Then Exit Sub

      ReDim a&(1 To m), b&(1 To WorksheetFunction.Combin(n, m), 1 To m)
      For i = 1 To m: a(i) = i: Next i
      If m = n Then p = 1 Else p = m
        
      [a1].CurrentRegion.ClearContents
      Do
          j = j + 1
          For i = 1 To m: b(j, i) = a(i): Next i
          If a(m) = n Then p = p - 1 Else p = m
          If p Then
              For i = m To p Step -1
                  a(i) = a(p) + i - p + 1
              Next i
          End If
      Loop While p
      [a1].Resize(UBound(b), m) = b
End Sub