Если хотите могу выслат тоже самое но с SUPRODUCT, которая более эфективна при помоши неё можно задат n-ое кол-во параметров

Вместо выслат и задат нужно выслать, и задать "ь" не работает

Mmounth - имя диапазона поиска месяца (Sheet2!A2:A65536)
mmm - имя месяца (Sheet1!A1)
tovar - имя диапазона поиска товара (Sheet2!B2:B35536)
RC[-2] - имя товара на листе (Sheet1!A2:A35536)
summa - имя диапазона суммы товара (Sheet2!C2:C65536)

ТО БИШЬ Имеем
на листе
Sheet2 вводим по колонке
А2:А65536 - месяцы прихода товара
B2:B35536 - наименования товаров
C2:C65536 - их суммы
на листе Sheet1 в яйчейке А1 вписываем месяц для которого нужно обобщить наши приходы
и жмём кнопку которая находится на листе Sheet1
код кнопки прилагается
Private Sub CommandButton1_Click()
Worksheets("Big Book").Range("F7:F20").Formula = "=SUMPRODUCT((Mmounth = mmm)*(tovar=RC[-2])*(summa))"
End Sub

P.S.
Я надеюс Вы знаете как присвоить имя яйчейке или диапазону яйчеек. Если(If) да то(Then) поясню для других, в смысле новичков. Активируем яйчейку или диапазон яйчеек входим Insert>Nae>Define> в поле Names in Workbook и присваиваем имя яйчейке или диапазону яйчеек
С наступающим Вас новым годом, к счястью 2007-ым

Пардон вместо Worksheets("Big Book")
Worksheets("Sheet1")

Опять 25
Worksheets("Big Book").Range("F7:F20")

Worksheets("Sheet1").Range("B2:B65536")
авторна листе Sheet1 в яйчейке А1 вписываем месяц для которого нужно обобщить наши приходы и жмём кнопку которая находится на листе Sheet1
а в яйчейках А2:A65536 того же листа вписываем товары