Sub СборГорок()
Dim мОстатки(1 To 9) As Long
Dim мКомплекты(1 To 20, 1 To 10) As Long
Dim а As Long, б As Long, в As Long, г As Long
Dim м As Range

'Перенос данных в массив остатки
Set м = Sheets("Комплектующие").Range("a1")

        For а = 1 To 9
            мОстатки(а) = м.Offset(а, 1)
        Next а

'Перенос  комплектов в массив
Set м = Sheets("Варианты комплектации горок").Range("A2")
    For б = 1 To 9
        For а = 1 To 20
            мКомплекты(а, б) = м.Offset(а, б)
        Next а
    Next б

Цикл1:
For а = 1 To 20
в = 1
    For б = 1 To 9 'проверка Хватает ли остатков
     If мКомплекты(а, б) <= мОстатки(б) Then в = в * 1 Else в = в * 0
     Next б
  If в = 1 Then
    мКомплекты(а, 10) = мКомплекты(а, 10) + в ' Добавляем количество комплекта
    For б = 1 To 9 ' снимаем с остатка использованное
        мОстатки(б) = мОстатки(б) - мКомплекты(а, б)
    Next б
    End If
Next а
г = г + 1
If г < 200 Then GoTo Цикл1 'Повторить 200 раз

' возврат результата на лист
Set м = Sheets("Горки").Range("a1")
For а = 1 To 20
    м.Offset(а, 1) = мКомплекты(а, 10)
Next а

' возврат остатков для проверки на лист (необезательно)
Set м = Sheets("Комплектующие").Range("a1")
For а = 1 To 9
    м.Offset(а, 2) = мОстатки(а)
Next а


End Sub