Cambiar valores de macro

Sub Boton_Suma_Haga_clic_en()
   Range("B1").Select
   If Range("B1").Value = "" Then
      MsgBox ("Debe digitar un codigo")
    Else
         Codigo = Range("B1").Value
         Range("A10").Select
         While ActiveCell.Value <> ""
            If ActiveCell.Value = Codigo Then
               ActiveCell.Offset(0, 1).Select
               ActiveCell.Value = ActiveCell.Value + 1
            End If
            ActiveCell.Offset(1, 0).Range("A10").Select
         Wend
    End If
End Sub
Ojala te resulte, cualquier cosa con gusto la responderé.

Es raro, solo suma si el código coincidente se encuentra en B10 y luego me lleva a la casilla a20

Hice la prueba en tu libro, cambie los rangos que tu cambiaste y encontré un error, faltaba una linea de código. ¿?
Sub Boton_Resta_Haga_clic_en()
Range("B1").Select
   If Range("B1").Value = "" Then
      MsgBox ("Debe digitar un codigo")
    Else
         Codigo = Range("B1").Value
         Range("A10").Select
         While ActiveCell.Value <> ""
            If ActiveCell.Value = Codigo Then
               ActiveCell.Offset(0, 1).Select
               ActiveCell.Value = ActiveCell.Value + 1
               ActiveCell.Offset(0, -2).Range("A1").Select
            End If
            ActiveCell.Offset(1, 0).Range("A1").Select
         Wend
         Range("B1").Select
    End If
End Sub

Ahora funciona, pero luego de la cción me aparece un cuadro diciendo "400"

Dentro de los cambios que estas haciendo, algo paso.
Enviame el archivo a mi correo.
[email protected]
Sera más fácil analizarlo.

Me parece que no estabas siguiendo las instrucciones al pie de la letra. Analice tus macros, habían algunas cosas por hay.
Estas serian las correctas.
Para agregar producto.
Sub Boton_Suma_Haga_clic_en()
Range("B1").Select
   If Range("b1").Value = "" Then
      MsgBox ("Debe digitar un codigo")
    Else
         Codigo = Range("B1").Value
         Range("A10").Select
         While ActiveCell.Value <> ""
            If ActiveCell.Value = Codigo Then
               ActiveCell.Offset(0, 1).Select
               ActiveCell.Value = ActiveCell.Value + 1
               ActiveCell.Offset(0, -1).Range("A1").Select
            End If
            ActiveCell.Offset(1, 0).Range("A1").Select
         Wend
         Range("B1").Select
    End If
End Sub
Resta Producto
Sub Boton_Resta_Haga_clic_en()
Range("B1").Select
   If Range("b1").Value = "" Then
      MsgBox ("Debe digitar un codigo")
    Else
         Codigo = Range("B1").Value
         Range("A10").Select
         While ActiveCell.Value <> ""
            If ActiveCell.Value = Codigo Then
               ActiveCell.Offset(0, 2).Select
               ActiveCell.Value = ActiveCell.Value - 1
               ActiveCell.Offset(0, -2).Range("A1").Select
            End If
            ActiveCell.Offset(1, 0).Range("A1").Select
         Wend
         Range("B1").Select
    End If
End Sub