PROGRAMACIÓN EN EXCEL VBA

HOLA TENGO UN PROBLEMA Y ESPERO ALGUIEN ME PUEDA AYUDAR

Necesito crear un bucle que utilice la función SUMAR.SI Donde

comparen un producto determinado de una tabla con n productos,

sume los que son iguales, escriba ese valor y salte al siguiente

producto para comparar. Comparto mi codigo, si alguien puede

ayudarme estaria muy agradecido.

Private Sub CommandButton1_Click()

Dim suma As Double

Hoja3.Select

With Application.WorksheetFunction

suma = .SumIf(Hoja4.Range("B:C"), Hoja3.Range("B2"), Hoja4.Range("C:C"))

Hoja3.Range("C2") = suma 

'El codigo de arriba es el que necesito que se haga en bucle aumentando

'una linea para comparar y escribir como se muestra a continuación:

'suma = .SumIf(Hoja4.Range("B:C"), Hoja3.Range("B3"), Hoja4.Range("C:C"))

'Hoja3.Range("C3") = suma

End With

End Sub