Untitled

    For Each rdc In RDCGroups.Keys
        
        TrailerCount = 1
        CarryOver = 0

        Do
            'Check RDC and Trailer Count in the Double Decker Dict
            If RDC_DD.exists(rdc) Then
                If TrailerCount = RDC_DD(rdc) Then
                    CageCount = 82
                Else
                    CageCount = 56
                End If
            Else
                CageCount = 56
            End If
            
            TrailerValue = 0
            RowsUnassigned = 0
            
            'Start of RDC Checking
            For i = 1 To RDCGroups(rdc).Count
                Set Row = RDCGroups(rdc)(i)
                Value = Row.Range.Cells(1, TestNumber(j)).Value
                
                'Checks if Trailer has been assigned
                If Row.Range.Cells(1, TestNumber(j) + 1).Value = "" Then
                    
                    'Handles Over Spill
                    If TrailerValue + CarryOver = 0 And Value > CageCount Then
                        OverSpill = Value - CageCount
                        CarryOver = OverSpill
                        Row.Range.Cells(1, TestNumber(j) + 1).Value = TrailerCount
                        TrailerCount = TrailerCount + 1
                    ElseIf TrailerValue + Value + CarryOver <= CageCount Then
                        Row.Range.Cells(1, TestNumber(j) + 1).Value = TrailerCount
                        TrailerValue = TrailerValue + Value + CarryOver
                        CarryOver = 0
                    Else
                        RowsUnassigned = RowsUnassigned + 1
                    End If
                End If
            Next i

            If RowsUnassigned > 0 Then
                TrailerCount = TrailerCount + 1
                CarryOver = 0
            Else
                CarryOver = 0
            End If

        Loop While RowsUnassigned > 0
    Next rdc