Сумма всех комбинаций значений из столбца чисел

Option Explicit
'
'Все вероятные комбинанации для определенного числа
'© Антихакер32™ ..2014
'
Const b0 = "0", b1 = "1"
Dim n&, n1&, n2&, dln&, f&, f1&, f2&
 
Function List(dln&) As String()
    'Бинарные элементы кода с указанной длиной *
    n = 2 ^ dln - 1
    ReDim a$(n): a(0) = String(dln, b0)
 
    For f = 0 To n
        a(f) = a(0)
    Next
    For f = dln To 1 Step -1
        n1 = 2 ^ (dln - f): n2 = n1 - 1
 
        For f1 = n1 To n Step n1 * 2
 
            For f2 = f1 To f1 + n2
                Mid(a(f2), f, 1) = b1
            Next
        Next
    Next
    List = a
End Function
 
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 18.07.2014 (Антихакер32)
'
    Const num = 10
    Dim j$(), j1$(), s$, n&, f&, i&
    Columns("A:A").Select
    Selection.ClearContents
    n = InputBox("Введите число комбинаций от 2 до " & num - 2 & " для числа " & num, , 3)
    j = List(num - 1): j1 = j
    For f = 0 To UBound(j)
        s = Replace(j(f), "0", "")
        If Len(s) = n - 1 Then j1(i) = j(f): i = i + 1
    Next
    ReDim Preserve j1(i - 1)
    For f = 0 To UBound(j1)
        j = Split(j1(f), "1")
        For i = 0 To UBound(j)
            j(i) = Len(j(i)) + 1
        Next
        'Выводим в каждую ячейку комбинацию сложения
        Range("A" & CStr(f + 1)) = Join(j, " + ")
    Next
End Sub