Поиск и суммирование данных в таблице по последним

[zybik]

Здравствуйте, подскажите как реализовать такую вот вещь.

Имеется файл с матчами, в примере, две команды в лиге "ENG L1". У команд были до этого игры(не между собой, а с другими командами той же лиги), может 2, а может и все 20. Меня интересует ПЯТЬ(как пример) последних игр КАЖДОЙ команды.

На примере матча "Sheffield United - Coventry City" в лиге ENG L1.

Нужно узнать сколько всего голов забыла домашняя команда. Домашняя команда - Sheffield United. Но не просто сумму посчитать, а посчитать забитые мячи последних 5 игр. В идеале получается, формула или макрос начинают поиск снизу вверх (длинная красная стрелка), и находит матчи в порядке их нумерации. Как только нашла последний матч, начинает (или в процессе) считать кол-во голов забытих этой командой (выделены красным), по итогу насчитывает в данном случае 7.
Понятно, что нужна возможность просто ее протянуть для всего столбца, чтоб под каждый конкретный матч оно считала значения. Если же игр меньше 5 (или числа N - заданное нами кол-во последних матчей для поиска), то выводить "данных недостаточно".

[Aleksandr H.]

Function findLast5(Team As Range, League As Range)
    Dim sTeam As String
    Dim sLeague As String
    Dim MatchesFound As Byte
    Dim Score As Byte
    Dim LastRow As Integer
    MatchesFound = 0
    
    Score = 0
    sLeague = League.Value2
    sTeam = Team.Value2
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    While MatchesFound < 5 And LastRow > 0
        If Cells(LastRow, "A") = League Then
            If LCase(Cells(LastRow, "B")) = LCase(Team) Then
                Score = Score + CInt(Cells(LastRow, "H"))
                MatchesFound = MatchesFound + 1
             ElseIf LCase(Cells(LastRow, "D")) = LCase(Team) Then
                Score = Score + CInt(Cells(LastRow, "I"))
                MatchesFound = MatchesFound + 1
            End If
        End If
        LastRow = LastRow - 1
    Wend
    If MatchesFound < 5 Or LastRow = 0 Then
        findLast5 = "Недостаточно данных"
    Else
        findLast5 = Score
    End If
End Function

[zybik]

Сообщение от Aleksandr H.

Function findLast5(Team As Range, League As Range)
    Dim sTeam As String
    Dim sLeague As String
    Dim MatchesFound As Byte
    Dim Score As Byte
    Dim LastRow As Integer
    MatchesFound = 0
    
    Score = 0
    sLeague = League.Value2
    sTeam = Team.Value2
    
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    While MatchesFound < 5 And LastRow > 0
        If Cells(LastRow, "A") = League Then
            If LCase(Cells(LastRow, "B")) = LCase(Team) Then
                Score = Score + CInt(Cells(LastRow, "H"))
                MatchesFound = MatchesFound + 1
             ElseIf LCase(Cells(LastRow, "D")) = LCase(Team) Then
                Score = Score + CInt(Cells(LastRow, "I"))
                MatchesFound = MatchesFound + 1
            End If
        End If
        LastRow = LastRow - 1
    Wend
    If MatchesFound < 5 Or LastRow = 0 Then
        findLast5 = "Недостаточно данных"
    Else
        findLast5 = Score
    End If
End Function

Проверил, выдает почему-то не 7, а 6 как результат.
Если растянуть на весь столбец, то везде где "Sheffield United" показывает 6. Хотя такого не должно быть, ведь чем выше по столбцу, тем меньше игр сыгранно данной командой. То есть поиск последних 5 игр должен начинаться со строки формулы.