Суммирование одинаковых позиций с разных листов

[Bear00]

Добрый день!

Помогите пожалуйста.

Хочу попробовать создать файл - простейший аналог R-keeper.
Суть: на вкладке "Приход" вводятся продукты; при нажатии на кнопку, на вкладке "Склад" суммируются имеющиеся значения с позициями, указанными в "Приходе".
Аналогично должно вычитаться на вкладке "Расход"
Подскажите, как можно решить это макросом?

Заранее спасибо!

[Aleksandr H.]

Sub rk()
    Dim r As Long
    Dim Sklad, Prihod, Rashod
    Set Sklad = Sheets("Склад")
    Set Prihod = Sheets("Приход")
    Set Rashod = Sheets("Расход")
    r = 5
    Do While Sklad.Cells(r, 3) <> ""
        Sklad.Cells(r, 5) = Sklad.Cells(r, 5) + Application.SumIf(Prihod.Range("c5:c500"), Sklad.Cells(r, 3), Prihod.Range("D5:D500")) - Application.SumIf(Rashod.Range("c5:c500"), Sklad.Cells(r, 3), Rashod.Range("D5:D500"))
        Sklad.Cells(r, 8).Clear
        If Sklad.Cells(r, 5) = 0 Then
            Sklad.Cells(r, 8) = "Пустой Склад"
        ElseIf Sklad.Cells(r, 5) < 0 Then
            Sklad.Cells(r, 8) = "Продал в МИНУС"
        End If
        r = r + 1
    Loop
End Sub

[Bear00]

Спасибо Вам огромное!
Направили на путь истинный))