Выбрать по критерию и суммировать последние пять

[Vlad_SPb]

Есть таблица из двух столбцов. Столбец A "Наименование товара" и столбец B "Цена". В столбце А Перечислены товары, например: апельсины, мандарины, яблоки, груши и т.п, причём вперемешку и строк в таблице очень много (несколько сотен). Таблица постоянно дополняется новыми данными.
Выглядит так:

A B
Яблоки 150
Апельсины 300
Груши 220
Мандарины 290
Груши 280
Мандарины 310
Мандарины 300
Яблоки 120
Яблоки 190
Апельсины 280

Рядом нужно создать маленькую табличку, в которой будет подсчитываться сумма последних пяти закупок того или иного товара, например апельсины. И ещё сумма пяти закупок, предшествующих последним пяти. Т.е. это будет таблица сравнения сумм последних пяти закупок и пяти закупок предшествующих этим пяти последним (для определённого товара). Выглядеть это будет примерно так:

C D
Апельсины (последние пять закупок) 1468
Апельсины (предыдущие пять закупок) 1295

Конечно там ещё и среднее должно высчитываться, и процент, и таблица посложнее, но это я все смогу сделать, мне бы только с этими злосчастными пятью последними закупками разобраться.
Как посчитать все апельсины я знаю: СУММЕСЛИ(A1:A10000;C1;B1:D10000). А вот как заставить Excel просматривать диапазон A1:A10000 с конца и выбирать только последние пять и пять предыдущих, никак не могу сообразить.
Надеюсь, что кто-нибудь поможет.

[peq]

немного подумал.. возможно решение не оптимальное, но я сделал бы файл так.

сводную таблицу я бы поставил, т.к. она процессор ест меньше, чем формулы, а актуальность и целостность данных проверять каждый каждый раз будет надо.

выводить лучше последние 10 целиком, а потом только только суммировать, т.к. дельты все равно надо будет как-то понимать самому и объяснять конечному получателю отчета. а они могут быть не такие, какими их люди ожидают увидеть хотя бы по причине отсутствия значений в предыдущей 5.

[Aleksandr H.]

N - последних чисел кот надо суммировать

Function СумаПоследних(strSource As String, N as integer)
    Dim Count As Integer
    Dim lastRow As Integer, Sum As Integer
    Count = 0: Sum = 0
    lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    Do While Count < N And lastRow > 2
        If ActiveSheet.Cells(lastRow, 1) = strSource Then
            Count = Count + 1
            Sum = Sum + ActiveSheet.Cells(lastRow, 2)
        End If
        lastRow = lastRow - 1
    Loop
    СумаПоследних = Sum
End Function