Visual Basic para Aplicaciones - ACTUALIZAR INVENTARIOS

Estimados

Ojala me pudieran ayudar con lo siguiente:

Tengo en la hoja5 un rango de celdas desde C18 hasta C32 con números que pertenecen a códigos de productos ingresados desde una factura, luego en desde la celda D18 a D32 sus respectivas cantidades.
Tengo en la hoja INVENTARIO en la columna “A” los códigos de todos los productos de bodega con su correspondiente categoría en la columna “B”, su descripción en la columna “C” y su cantidad actual en la columna “D”
Necesito ir buscando cada código que tengo en el rango de C18 a C32 de la hoja5 en la columna “A” de la hoja inventario.
Cuando encuentre el primero (C18) pare en esa fila, cuente hasta la columna “D” y actualice la cantidad.
Luego que busque el segundo (C19), cuando lo encuentre, se detenga es esa fila, cuente hasta la columna que tiene la cantidad y la actualice (siempre será suma, porque estoy ingresando productos)
Y así sucesivamente, hasta leer el ultimo código de artículos en C32.

Agradeciendo su atencion y ayuda.

Espero te sirva presiona en tu hoja de excel abierta presiona ALT + F11 luego dale click derecho al explorador de proyectos y agrega un modulo
en el modulo le copias este codigo y luego cierras la ventana del Visual Basic Editor
Presionas Alt + F11 y corres ACTUALIZARINVENTARIO y LISTO.

Public Sub ACTUALIZARINVENTARIO()
Dim RowIni As Integer
Dim RowEnd As Integer
Dim j as Integer
RowIni = InputBox("Ingresa el renglon donde inicia en el ejemplo C18 renglon 18", "Inicia en el Renglon")
RowEnd = InputBox(" Ingresa el renglon donde termina la revision en tu ejemplo C32", "Renglon donde termina")
j = InputBox(" Ingresa el renglon donde empiezan los codigos del INVENTARIO de la colunma A", "Renglon de Inventario")
For i = RowIni To RowEnd
Do While Not IsEmpty(ThisWorkbook.Sheets("INVENTARIO").Cells(j, 4))
If ThisWorkbook.Sheets(5).Cells(i, 3) = ThisWorkbook.Sheets("INVENTARIO").Cells(j, 1) Then
ThisWorkbook.Sheets("INVENTARIO").Cells(j, 4) = ThisWorkbook.Sheets("INVENTARIO").Cells(j, 4) + ThisWorkbook.Sheets(5).Cells(i, 4)
Exit Do
End If
j = j + 1
Loop
Next i
End Sub

Eng. Zeus Alberto Paez Renteria
Project and Desing Engineer
Triumph Group