Назначить ресурс для задачи с учетом времени ожидания

Question

У меня есть список задач и ограниченное количество доступных ресурсов. Я хочу назначить ресурс задаче на основе ее доступности.Я написал код, чтобы назначить каждому новое доступное время на основе их предыдущей задачи, но мне нужно добавить «ждать» следующего доступного и назначить его.Поэтому я хочу, чтобы на момент запуска задачи не было ни одной, я хочу дождаться следующей доступной.Пожалуйста, дайте мне знать, если требуется разъяснение.

Вот что у меня есть:

Public Sub TractorAssignment()

Dim rDrivers As Range             
Dim vAvailable_Times As Variant      
Dim rAssignments As Range          
Dim rJob As Range                   
Dim rStart_Times As Range         
Dim iloop As Integer


Set rDrivers = ActiveWorkbook.Worksheets("Parameters").Range("M14").CurrentRegion
Set rDrivers = rDrivers.Offset(1).Resize(rDrivers.Rows.Count - 1)

Set rAssignments = ActiveSheet.Range("BO6").CurrentRegion
Set rAssignments = rAssignments.Offset(1).Resize(rAssignments.Rows.Count - 1)

Set rStart_Times = rAssignments.Columns(10)                                 

vAvailable_Times = Application.Transpose(rDrivers.Columns(2))               

For Each rJob In rStart_Times.Rows                                          
    For iloop = LBound(vAvailable_Times) To UBound(vAvailable_Times)        
        If rJob.Value > vAvailable_Times(iloop) Then                        
            rJob.Offset(, 5).Value = rDrivers.Cells(iloop, 1)               
            vAvailable_Times(iloop) = rJob.Offset(, 4)                      
            Exit For
        End If
    Next
Next