Sub MyCombin()
    Dim a&(), i&, j&, m&, n&, p&
    n = Val(InputBox("n =", , 20))
    m = Val(InputBox("m =", , 5))
    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
    
    Range("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

ReDim a&(1 To m), b&(1 To WorksheetFunction.Combin(n, m), 1 To m)

 n = Cells(Rows.Count, 1).End(xlUp).Row
 m = Cells(Rows.Count, 3).End(xlUp).Row

Sub ФормированиеКомбинаций()
Sheets("Комбинации").Select
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lLastRow
Kombin2 = Cells(i, 1).Text
Fraza = Cells(i, 1).Text
Tema = Cells(i, 2).Text
lLastRow1 = Cells(Rows.Count, 3).End(xlUp).Row
For y = 2 To lLastRow1
If Cells(y, 4).Text <> Tema Then
lLastRow2 = Cells(Rows.Count, 6).End(xlUp).Row
Cells(lLastRow2 + 1, 6).Value = Kombin2 & " " & Cells(y, 3).Text
Cells(lLastRow2 + 1, 7).Value = Tema & ", " & Cells(y, 4).Text
End If
Next
Next
End Sub