Acumular valores para determinados produtos

[fdkdente]

Bom dia pessoal.

Preciso de uma ajudinha com um código do vba.. é o seguinte:

Tenho uma planilha que faz o "check in" dos produtos que chegam na empresa, e outra de controle de estoque e quero que seja feito a adição da mercadoria do chek in no estoque.

Elaborei uma planilha simples, de exemplo que tem a mesma ideia https://www.sendspace.com/file/7f4s5l

Pensei numa macro neste sentido:

Dim qtd as Double
Dim prod, prod_estoque as String

Sheets("Estoque").Select
prod_estoque = Range("A:A").Value

Sheets("Cadastro").Select

prod = Range("A1").Value
qtd = Range("B1").Value

If prod = prod_estoque Then

'Aqui seria inserido um comando que seleciona a célula da Coluna A da planilha Estoque que tem o mesmo valor de prod, ou seja, é o mesmo produto. Em seguida, a seleção muda para a célula ao lado (coluna "B").

ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + qtd

Else 
End If
End Sub

O código tem alguns erros claros, como na linha "If prod = prod_estoque Then"... Mas acho que a ideia foi compreendida ^^

Qualquer duvida só me perguntar...

Se alguém puder me ajudar, agradeço.

Editado Setembro 11, 2014 por fdkdente