Математическая задачка, имеющая реальное практическое применение

Sub Ocherednost()
    Const FirstRow& = 4
    Const OchCol& = 5
    Dim h&, i&, j&, k&, N&, LastRow&, A
    Dim Zakaz&, ZStartRow&, ZEndRow&, Ochered%, SborkaNIz%, SborkaRow&, TRow&
    Dim MaxTrud!, MaxTrudSborka!, Trud!
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(FirstRow, OchCol), Cells(LastRow, OchCol)).ClearContents
    A = Range("A1:G" & LastRow).Value
    For ZStartRow = FirstRow To LastRow
        Zakaz = A(ZStartRow, 1)
        ZEndRow = LastRow
        For i = ZStartRow + 1 To LastRow
            If A(i, 1) <> Zakaz Then
                ZEndRow = i - 1
                Exit For
            End If
        Next i
        N = ZEndRow - ZStartRow + 1
        Ochered = 0
        Do
            MaxTrudSborka = 0
            SborkaNIz = 0
            For i = ZStartRow To ZEndRow
                If A(i, OchCol) = 0 Then
                     Trud = IIf(A(i, 4) = 1 And A(i, 6) = 0, A(i, 7), A(i, 6))
                    If Trud > MaxTrudSborka Then
                        MaxTrudSborka = Trud
                        SborkaNIz = A(i, 3)
                        SborkaRow = i
                    End If
                End If
            Next i
            For i = ZStartRow To ZEndRow
                If A(i, 4) = 0 Then
                    A(i, OchCol) = N
                    If MaxTrudSborka = 0 Then
                        MaxTrudSborka = 1
                        SborkaNIz = A(i, 3)
                        SborkaRow = i
                    End If
                End If
            Next i
            For h = 1 To N
                MaxTrud = 0
                For i = ZStartRow To ZEndRow
                    If A(i, 4) = SborkaNIz Then
                        If A(i, OchCol) = 0 Then
                            If A(i, 7) > MaxTrud Then
                                MaxTrud = A(i, 7)
                                TRow = i
                            End If
                        End If
                    End If
                Next i
                If MaxTrud > 0 Then
                   Ochered = Ochered + 1
                   A(TRow, OchCol) = Ochered
                End If
            Next h
            If MaxTrudSborka > 0 Then
               Ochered = Ochered + 1
               A(SborkaRow, OchCol) = Ochered
            End If
        Loop While Ochered < N - 1
        ZStartRow = ZEndRow
    Next ZStartRow
    Range("A1:G" & LastRow).Value = A
End Sub

Sub Ocherednost()
    Const FirstRow& = 4
    Const NZakCol& = 1
    Const NIzdCol& = 3
    Const RoditelCol& = 4
    Const OchCol& = 5
    Const TrudSborCol& = 6
    Const TrudDetCol& = 7
    Dim h&, i&, j&, k&, N&, LastRow&, A
    Dim Zakaz&, ZStartRow&, ZEndRow&, Ochered%, SborkaNIz%, SborkaRow&, TRow&
    Dim MaxTrud!, MaxTrudSborka!, Trud!
    LastRow = Cells(Rows.Count, NZakCol).End(xlUp).Row
    Range(Cells(FirstRow, OchCol), Cells(LastRow, OchCol)).ClearContents
    A = Range("A1:G" & LastRow).Value
    For ZStartRow = FirstRow To LastRow
        Zakaz = A(ZStartRow, NZakCol)
        ZEndRow = LastRow
        For i = ZStartRow + 1 To LastRow
            If A(i, NZakCol) <> Zakaz Then
                ZEndRow = i - 1
                Exit For
            End If
        Next i
        N = ZEndRow - ZStartRow + 1
        Ochered = 0
        Do
            MaxTrudSborka = 0
            SborkaNIz = 0
            For i = ZStartRow To ZEndRow
                If A(i, OchCol) = 0 Then
                    Trud = IIf(A(i, RoditelCol) = 1 And A(i, TrudSborCol) = 0, A(i, TrudDetCol), A(i, TrudSborCol))
                    If Trud > MaxTrudSborka Then
                        MaxTrudSborka = Trud
                        SborkaNIz = A(i, NIzdCol)
                        SborkaRow = i
                    End If
                End If
            Next i
            For i = ZStartRow To ZEndRow
                If A(i, RoditelCol) = 0 Then
                    A(i, OchCol) = N
                    If MaxTrudSborka = 0 Then
                        MaxTrudSborka = 1
                        SborkaNIz = A(i, NIzdCol)
                        SborkaRow = i
                    End If
                End If
            Next i
            For h = 1 To N
                MaxTrud = 0
                For i = ZStartRow To ZEndRow
                    If A(i, RoditelCol) = SborkaNIz Then
                        If A(i, OchCol) = 0 Then
                            ' На случай, если деталь родительской - тоже сборная
                            Trud = IIf(A(i, TrudDetCol) > A(i, TrudSborCol), A(i, TrudDetCol), A(i, TrudSborCol))
                            If Trud > MaxTrud Then
                                MaxTrud = Trud
                                TRow = i
                            End If
                        End If
                    End If
                Next i
                If MaxTrud > 0 Then
                   Ochered = Ochered + 1
                   A(TRow, OchCol) = Ochered
                End If
            Next h
            If MaxTrudSborka > 0 Then
               Ochered = Ochered + 1
               A(SborkaRow, OchCol) = Ochered
            End If
        Loop While Ochered < N - 1
        ZStartRow = ZEndRow
    Next ZStartRow
    Range("A1:G" & LastRow).Value = A
End Sub