Obligar a repetir mismo dato en celda

Buenas noches Dam,

Me permito solicitar de tú ayuda nuevamente

La siguiente macro hace que se ejecute otra en el momento que la cantidad puesta en celda A10 es igual a celda A1, la celda A1 es igual a celda B1 y va sumando 1 cada vez que escribo cualquier cosa en celda E10.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$E$10") Then _
Range("B1") = Range("B1") + 1
End Sub
Private Sub Worksheet_Calculate()
x = Range("A10")
If x = Range("A1") Then Call impresion Else Exit Sub
End Sub

Mi pregunta es, como puedo obligar a escribir lo mismo en celda E10 el número de veces de celda A10. Los datos de E10 los introduzco con un lector de código de barras y quiero evitar que se lean códigos diferentes, con esto puedo imprimir la etiqueta de envio con el total de ese código.

Saludos