Boa noite carloseo

Seja bem-vindo ao fórum!

Movi teu tópico para VBA & Macros, pois onde você havia postado é exclusivo para a apresentação dos novos usuários.

Por enquanto vou deixar teu tópico sendo mostrado nos 2 locais para facilitar a localização.

Na próxima vez siga as regras do fórum e compacte o teu arquivo antes de anexar.

[]s

Patropi Moderador

Bom dia!!!

Sinceramente, seu post não condiz com seu arquivo modelo, explique melhor o que pretende!

Att

Para o caso da célula D2, vc estava fazendo assim:

If Target.Address = "$D$2" Then 'toda esta parte trata especificamente da coluna que esta entre aspas
' fazendo que some na mesma celula o valor digitado
valorcel = Target.Value + valorcel
If Target.Value = 0 Then valorcel = 0
Target.Value = valorcel
End If

Faça assim:
If Target.Address = "$D$2" Then 'toda esta parte trata especificamente da coluna que esta entre aspas
' fazendo que some na mesma celula o valor digitado
valorcel = Target.Value + valorcel
If Target.Value = 0 Then
valorcel = 0
Else
Target.Value = valorcel
End If
End If

Faça o mesmo ajuste nos demais.

Porém, se vc explicasse direito que vc quer, daria pra ter melhorado bastante o teu código.