Error al digitar un numero me carga otro

Para dante amor, buenos días dante tu me ayudaste con esta una macro que me busca en una hoja auxiliar un campo de descripción y código pero cuando lo selección solo me carga el código, dentro de la macro esta este código

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value = "" Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Set h = Sheets("AUXILIARES")
    Set b = h.Columns("C").Find(Target, lookat:=xlWhole, LookIn:=xlValues)
    If Not b Is Nothing Then
        cod = h.Cells(b.Row, "A")
        Application.EnableEvents = False
        Target.Value = cod
        Application.EnableEvents = True
    End If
End Sub

Me esta afectando a escribir algún numero y me lo cambia por ejemplo escribo 1 y pone 5 coloco 4 y pone 100, coloco 8 y pone 102 y así con cada tercer numero, yo se que esta en este código por que lo elimino y funciona bien, pero si lo elimino no me selecciona el código de la lista. Me ayudas