Adicione uma caixa de texto ActiveX (guia Desenvolvedor, seção Controles, botão 'Inserir'. O nome padrão é TextBox1).
Adicione um botão de controle de formulário básico (o nome padrão deve ser Button1)
Selecione o botão e clique em "Visualizar código" na mesma seção "Controles" na barra de ferramentas
Então o sub deve ser parecido com isto
Sub Button1_Click()
Sheet1.Range("C1").Value = Sheet1.Range("C1").Value + Sheet1.TextBox1.Text
Sheet1.Range("D1").Value = Sheet1.Range("D1").Value + Sheet1.TextBox1.Text
Sheet1.TextBox1.Text = ""
End Sub
C1 e D1 seriam as células que você queria copiar a quantidade para
Editar: Esqueci o pouco sobre a limpeza da caixa de texto. E em um sidenote, Alt + F11 é um caminho rápido de volta para a janela de código.