Colocar valor 1 automáticamente

Buen día espero alguien me pueda ayudar en lo siguiente:
Columna A: Código
Columna B: Cantidad
Quiero saber si puedo hacerlo de manera automática me coloque el valor "1" en la celda B1 posterior a la captura de la celda A1
Esto lo puedo hacer con una función condicional pero al momento de ejecutar una macro no me toma la celda B1 como valor capturaro, por lo que tengo que colocar el valor capturandolo, pero como este valor podría ser muy común trato de evitar la captura
¿Hay una manera de indicarle que si tengo captura en A1 me coloque el valor "1" en la celda B1?
Y así continuamente hasta A10 con resultado en B10
De antemano muchas gracias
Saludos