=ПОДСТАВИТЬ(ВПР(B$2&"*";ТРАНСП($F3:$I3);1;);B$2&": ";"")

=ВПР(B2&"*";F3:I3;1;0)

=ВПР(C2;{"Очень медленно";20:"Медленно";40:"Средне";60:"Быстро";80:"Очень быстро";100};2;0)

=СУММПРОИЗВ(--(ГОД(даты!$A$2:$A$20)=A2))

Option Explicit

'1. Ф.И.О. Литры Время взять в массив, чтоб там можно было обнулять не повредив источник.
'2. Шаг цикла по таблице1, в нём цикл по массиву, проверяем есть ли литры, затем фио, затем время - если ОК, то суммируем в переменной, обнуляем литры в массиве.
'3. Записываем из переменной в таблицу1, переменную обнуляем.
'4. Шаг цикла по таблице1, и т.д.

Sub tt()
    Dim a, y&, i&, ii&, x#

    a = Range("Таблица5712").Value

    For i = 2 To Range("Таблица4").Rows.Count
        For ii = 2 To UBound(a)
            If a(ii, 2) > 0 Then
                If a(ii, 1) = Cells(i, 1) Then
                    If a(ii, 3) >= Cells(i, 2) Then
                        If a(ii, 3) <= Cells(i, 3) Then
                            x = x + a(ii, 2): a(ii, 2) = 0
                        End If
                    End If
                End If
            End If
        Next
        Cells(i, 7) = x: x = 0
    Next
End Sub

=ВПР($B$5;$A$11:$C$40;ВПР(B4;{"USD";2:"EUR";3};2;0);)