Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
Dim nombre As String
Dim col As Byte
If Intersect(Target, Range('e7:e38')) Is Nothing Then Exit Sub
col = 9
For i = 1 To Len(Target)
If IsNumeric(Mid(Target, i, 1)) And IsNumeric(Mid(Target, i + 1, 1)) Then
nombre = nombre & Mid(Target, i, 1)
ElseIf IsNumeric(Mid(Target, i, 1)) And Not IsNumeric(Mid(Target, i + 1, 1)) Then
nombre = nombre & Mid(Target, i, 1)
Cells(Target.Row, col) = nombre
nombre = ''
col = col + 1
End If
Next i
End Sub