Обновление данных в Dictionary

For Each cell In rngOut.Rows
        material = cell.Cells(1, 3).Value
        quantity = cell.Cells(1, 4).Value
        dateOut = CDate(cell.Cells(1, 1).Value)
 
        If Not dict.Exists(material) Then
            dict.Add material, Array(quantity, dateOut)
        Else
            If dateOut < CDate(dict(material)(1)) Then
                dict(material)(1) = CDate(dateOut)
            End If
            dict(material)(0) = CLng(dict(material)(0)) + quantity
        End If
    Next cell

Sub IgorAi()
    Const r1 As String = "A4"
    Const rDt As String = "A4"
    Const rMat As String = "C4"
    Const rM As String = "D4"
    Const rRez As String = "C15"
    
    Dim wsOut As Worksheet: Set wsOut = ThisWorkbook.Sheets("Out")
    Dim wsIn As Worksheet: Set wsIn = ThisWorkbook.Sheets("Temp")
    Dim rngOut As Range, rngIn As Range
    Dim All, key, dict As Object: Set dict = CreateObject("Scripting.Dictionary")
    Dim i, i1, iL, iU, iDt, iMat, iM
    Dim RrMat As Range, RrM As Range
    Dim ttt: ttt = Timer
    
    All = wsOut.Range(r1 + ":" + Split(wsOut.UsedRange.Address, ":")(1))
    iL = LBound(All, 1)
    iU = UBound(All, 1)
    Set RrMat = Range(rMat).Resize(iU - iL + 1, 1): Set RrM = Range(rM).Resize(iU - iL + 1, 1)
    
    i1 = Range(r1).Column
    iDt = Range(rDt).Column - i1 + iL
    iMat = Range(rMat).Column - i1 + iL
    iM = Range(rM).Column - i1 + iL
    
    For i = UBound(All, 1) To iL Step -1
        If dict.Exists(All(i, iMat)) Then
            If All(i, iDt) < dict(All(i, iMat)) Then dict(All(i, iMat)) = All(i, iDt)
        Else
            dict.Add All(i, iMat), All(i, iDt)
        End If
    Next
    ReDim All(dict.Count - 1, 2)
    i = 0
    For Each key In dict.Keys
        All(i, 0) = key
        All(i, 1) = Application.WorksheetFunction.SumIf(RrMat, All(i, 0), RrM)
        'MsgBox RrMat.Address & vbCr & key & vbCr & RrM.Address & vbCr & All(i, 1)
        All(i, 2) = dict(key)
        i = i + 1
    Next
    wsIn.UsedRange.ClearContents
    wsIn.Range(rRez).Resize(dict.Count, 3) = All
    
MsgBox "Готово!" & Timer - ttt, vbInformation
End Sub

    Set RrMat = wsOut.Range(rMat).Resize(iU - iL + 1, 1): Set RrM = wsOut.Range(rM).Resize(iU - iL + 1, 1)

Sub ПримерИспользования()
    Dim arr(), arrRef
    Dim coll As New Collection
    
    arr = Array(111, 222, 333)
    
    coll.Add New ArrayContainer 'добавляем экземпляр класса в коллекцию
    coll(1).Add arr             'добавляем массив в "контейнер"
    arrRef = coll(1)            'получаем массив-ссылку из контейнера
    Stop
    Debug.Print coll(1).Ar()(2) 'получаем значение массива способ 1
    Stop
    Debug.Print coll(1)(1)      'способ 2
    Stop
    ReDim Preserve arrRef(4)     'редимим массив по ссылке
    Stop
    ReDim Preserve coll(1).Ar(5) 'редимим массив в контейнере
    Stop
    coll(1).Ar(4) = 123         'изменяем  значение массива в контейнере
    coll(1)(3) = 321
    Debug.Print coll(1)(3); coll(1)(4)   'проверяем измененные значения
    Stop
End Sub