Oi gente, como vai? Preciso de ajuda em um tópico...

Criei uma planilha com um formulário onde quando eu preencho as informações e aperto em "adicionar" ele procura o valor que coloquei na listbox e adiciona o valor da caixa quantidade na aba "quantidade" da planilha somando com o que já está lá. Porém não estou conseguindo fazer esse código funcionar. Alguém pode me ajudar por favor? A primeira parte do procurar até vai, mas quando preciso mudar de coluna e somar os valores enrosca.

Fiz esse código:

Private Sub botao_adc_Click()

  Set Procurar = Cells.Find(What:=caixa_produto, After:=ActiveCell, _
        LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False).Offset(0, 3)

  If Not (Procurar Is Nothing) Then
    Procurar.Select
  End If

End Sub