=ПОСТАВКА($C11;$D11;$E11:$L11;$E$7:$L$7;E11)

Function ПОСТАВКА(Доступно_к_поставке As Long, Остаток_на_складах_ВСЕГО As Long, Процент_от_общего_остатка As Range, Эталонное_распределение As Range, Процент_от_общего_остатка_одного_склада As Range) As Long
    Dim arr As Variant: arr = Эталонное_распределение.Value
    Dim prr As Variant: prr = Процент_от_общего_остатка.Value
    Dim nrr As Variant: ReDim nrr(1 To UBound(prr, 2)) As Long
    Dim drr As Variant: ReDim drr(1 To UBound(prr, 2)) As Long
    Dim mrr As Variant: ReDim mrr(1 To UBound(prr, 2)) As Double
    Dim krr As Variant: ReDim krr(1 To UBound(prr, 2)) As Double
    Dim iSum As Long
    iSum = Доступно_к_поставке + Остаток_на_складах_ВСЕГО
    
    Dim xMin As Long
    Dim xx As Long
    For xx = 1 To UBound(nrr)
        nrr(xx) = Остаток_на_складах_ВСЕГО * prr(1, xx)
        mrr(xx) = iSum * arr(1, xx)
    Next
    
    Do
        If Доступно_к_поставке <= 0 Then Exit Do
        
        xMin = 1
        For xx = 1 To UBound(nrr)
            If mrr(xx) > 0 Then
                xMin = xx
                Exit For
            End If
        Next
        For xx = 1 To UBound(nrr)
            If mrr(xx) > 0 Then
                krr(xx) = nrr(xx) / mrr(xx)
                If krr(xMin) > krr(xx) Then
                    xMin = xx
                    If krr(xMin) = 0 Then Exit For
                End If
            End If
        Next
        nrr(xMin) = nrr(xMin) + 1
        drr(xMin) = drr(xMin) + 1
        Доступно_к_поставке = Доступно_к_поставке - 1
        DoEvents
    Loop
    
    xx = Процент_от_общего_остатка_одного_склада.Column - Процент_от_общего_остатка.Column + 1
    ПОСТАВКА = drr(xx)
End Function