r.Cells(i).Interior.Color = t.Cells(i).Interior.Color

=И(A4=F4;A4=K4;A4=P4;A4=U4)

Sub tt()
    Dim lastrow&, nextrow&
    
    With ActiveSheet
        lastrow = Application.Max(.Cells(.Rows.Count, 8).End(xlUp).Row, .Cells(.Rows.Count, 9).End(xlUp).Row, .Cells(.Rows.Count, 10).End(xlUp).Row, .Cells(.Rows.Count, 11).End(xlUp).Row, .Cells(.Rows.Count, 12).End(xlUp).Row)
        nextrow = Application.Ceiling(lastrow / 3, 1) * 3 + 1
    End With

End Sub

Option Explicit

Sub dakine55()    'коллекция в словаре
    Dim a, b, i&, t$, Dic As Object
    Dim el, x&

    With Sheets("Материалы")
        a = .Range("C3", .Cells(.Rows.Count, "A").End(xlUp)).Value
    End With

    Set Dic = CreateObject("Scripting.Dictionary")
    With Dic
        .CompareMode = 1
        For i = 1 To UBound(a)
            t = a(i, 3)
            If Not .exists(t) Then .Add t, New Collection
            .Item(t).Add i
        Next
    End With

    b = Sheets("Заказ").[a7].CurrentRegion.Value
    ReDim c(1 To UBound(a), 1 To 3)
    x = x + 1
    c(x, 1) = "Материалы"
    c(x, 2) = "кол-во"
    c(x, 3) = "Продукция"
    For i = 1 To UBound(b)
        t = b(i, 2)
        If Dic.exists(t) Then
            For Each el In Dic.Item(t)
                x = x + 1
                c(x, 1) = a(el, 1)
                c(x, 2) = a(el, 2) * b(i, 4)
                c(x, 3) = t
            Next
        End If
    Next

    With Workbooks.Add(1).Sheets(1).Cells(1).Resize(x, 3)
        .Value = c
        .Columns.AutoFit
    End With
End Sub

Select Case True

Option Explicit

Sub Perebor() ' словарь в словаре
    Dim a, i&, t$, Dic As Object, Dic2 As Object
    Dim el, col
    
    a = Range("C2", Cells(Rows.Count, "A").End(xlUp)).Value
    Set Dic = CreateObject("Scripting.Dictionary")
    With Dic
        .CompareMode = 1
        For i = 1 To UBound(a)
            t = a(i, 2)
            If Not .exists(t) Then .Add t, CreateObject("Scripting.Dictionary")
            .Item(t).Item(a(i, 1)) = a(i, 3)
            
        Next
    End With
    
    For Each el In Dic.keys
        Debug.Print "В каталоге " & el
        Set Dic2 = Dic.Item(el)
        For Each col In Dic2.keys
            Debug.Print "С хэшем " & col & " должен быть файл" & Dic2.Item(col)
        Next
        Debug.Print "Переход в каталог " & el
    Next

End Sub