Quiero que revisen un macro

Hola amigos soy nuevo por aca, miren estoy haciendo un formato para una factura donde tengo 4 columnas: cantidad, descripción, precio unitario y total, bueno en descripción tengo una lista desplegable de productos ahi al seleccionarla aparecen los producto selecciono uno y aparece un inputbox pidiéndome ingresar la cantidad, se la ingreso por ejemplo 4 y se supone que me debe colocar la cantidad seleccionada en este caso el 4 el la columna de la cantidad es decir en A14 pero no sucede. Aquí es donde quiero que me revicen la macro que tengo haber en donde estoy mal. Aquí les dejo la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B14:B23")) Is Nothing Then
On Error Resume Next
cantidad = InputBox("Ingrese la cantidad", Target, 1)
Target.Offset(, -1) = cantidad
On Error GoTo 0
End If
End Sub

espero pronta respuesta . Por todo mil gracias . Saludos desde Veracruz, Mexico

p.d. La columna de cantidad va desde A14 hasta A23