Задача управления запасами - VBA

Формулировка задачи:

Sub Склад()
Randomize
n = 100
Lambda = 5
Rezerv = 15
Nekhvat = 0
Perep = 0
DZ = 3 'максимальное время выполнения заказа
Dim Zapros, Sklad, Postav
ReDim Zapros(n), Sklad(n), Postav(n + 3)
For i = 1 To n
     Zapros(i) = Int(-Lambda * Log(Rnd))
     Postav(i) = 0
Next
Stop
Sklad(0) = 100
'****** Начало расчетов******
For i = 1 To n
 
    Sklad(i) = Sklad(i - 1) - Zapros(i) 'Ушло со склада по запросу
    Sklad(i) = Sklad(i) + Postav(i)
    If Sklad(i) < 0 Then
        Sklad(i) = 0
        Nekhvat = Nekhvat + 1
    End If
    If Sklad(i) <= Rezerv Then 'если меньше резерва делаем заказ
        nz = Int(DZ * Rnd) + 1 'день поставки, считая от текущего
        Postav(i + nz) = 80
    End If
    If Sklad(i) > 100 Then
        Perep = Perep + 1
    End If
    Cells(1 + i, 1) = Sklad(i)
    Cells(1 + i, 2) = Zapros(i)
    Cells(1 + i, 3) = Postav(i)
Next i
Cells(2, 4) = Nekhvat
Cells(2, 5) = Perep
 
'
End Sub

Как сделать так чтобы когда заказ сделан, больше не заказывать если на складе меньше резерва??

Решение задачи: «Задача управления запасами»

textual
                            Листинг программы 
                        

                            If Sklad(i) <= Rezerv And T = 0 Then 'заказ товара
        nz = Int(DZ * Rnd) + 1 'день поставки, считая от текущего
        Postav(i + nz) = P
        T = 1
    End If
    If Postav(i) > 0 Then'Поверка выполнен ли заказ
        T = 0 
    End If
                        