Доброе время суток.
В принципе, если рассматривать это как некоторую функцию вида Y = A1*X1 + ... An * Xn, где Xi - это значения в A-S, то можно итерационно  на МНК посчитать первое приближение для A1..An. Вычислить невязку, пропорционально раскидать в A-S, с учётом ограничений. Повторно вычислить новые A1..An. Ну, и продолжать, пока не будет достигнуто заданное минимальное отклонение по всем строкам.
Короче макрос. Хотя, гарантии, что это будет хорошо сходится дать не могу.

[The_Prist]

Доброе время суток.

но как из экселя обратиться к нему не понимаю...

Дмитрий (The_Prist) старается, статьи пишет. Почему бы вам не прочитать Как из Excel обратиться к другому приложению?
Успехов.

А зачем писать в ячейку А1 именно этот путь? Какой нужно (с указанием диска D, например) и пишите. Что-то я вас не понимаю.  

Если честно не очень разбираюсь в макросах...

Я уверен в ваших способностях, поменяйте эту строку кода

Код: (vb)

sPath = "C:\Users\Администратор\Desktop\А\" 'Путь к папке

на предложенную (не забыв ввести путь в A1).

Доброе время суток
Положим, что путь в ячейке A1 листа "путь к папкам" книги, где выполняется макрос.

Код: (vb)

sPath = ThisWorkbook.Worksheets("путь к папкам").Range("A1").Value

Успехов.

Доброе время суток.
Ничего сложного. Делаете рекурсивный вызов, например по такой структуре.

Код: (vb)

Public Sub Test()
    Dim Indices(1 To 4) As Long
    Dim fromId(1 To 4) As Long
    Dim toId(1 To 4) As Long
    fromId(1) = 1: toId(1) = 3
    fromId(2) = 3: toId(2) = 5
    fromId(3) = 4: toId(3) = 6
    fromId(4) = 5: toId(4) = 7
    Circles 1, 4, Indices, fromId, toId
End Sub

Private Sub Circles(ByVal curId As Long, ByVal lastId As Long, ByRef Indices() As Long, ByRef fromId() As Long, ByRef toId() As Long)
    Dim i As Long
    If curId = lastId Then
        For i = fromId(curId) To toId(curId)
            Indices(curId) = i
            WriteResult Indices
        Next
    Else
        For i = fromId(curId) To toId(curId)
            Indices(curId) = i
            Circles curId + 1, lastId, Indices, fromId, toId
        Next
    End If
End Sub

Private Sub WriteResult(ByRef Indices() As Long)
    Dim sOut As String, i As Long, vStart As Long
    vStart = LBound(Indices)
    sOut = CStr(Indices(vStart))
    For i = vStart + 1 To UBound(Indices)
        sOut = sOut & "; " & CStr(Indices(i))
    Next
    Debug.Print sOut
End Sub

Успехов.