Excel 2016 - mögliche Kombinationen aus einer Spalte bilden

Sub Permute()
    Dim rowEnd As Long, outNum As Long
    outNum = 1
    With ActiveSheet
        rowEnd = .Cells(Rows.Count, "A").End(xlUp).Row  
        For i = 1 To rowEnd
            For x = i + 1 To rowEnd
                .Cells(outNum, "B").Value = .Cells(i, 1).Value & .Cells(x, 1).Value  
                outNum = outNum + 1
            Next
        Next
    End With
End Sub