Insertar un digito en una celda

hola, omar !

me mandan archivos que tienen una fila con numeros de parte, los numeros son asi: 40315F4210
yo necesito insertarle un espacio despues del quinto digito para que queden asi: 40315 F4210
esto es para poder hacer una formula
si no tiene el espacio en medio no me sale porque tengo una base de datos que tiene los numeros de parte con espacio

1) si necesitas 'convertir' el mismo contenido de cada celda agregando un espacio despues del 5o caracter...
selecciona el rango que contiene los numeros [40315F4210, etc.] y corre una macro +/- como la siguiente:
Sub Espacio_Cinco()
Dim Celda As Range
For Each Celda In Selection
Celda = Left(Celda, 5) & " " & Mid(Celda, 6)
Next
End Sub

2) si necesitas 'separar' los primeros 5 caracteres en una celda y 'el resto' en la celda adyacente [suponiendo que esta 'libre']...
Sub Separa_Cinco()
Dim Celda As Range
For Each Celda In Selection
Celda.Offset(, 1) = Mid(Celda, 6)
Celda = Left(Celda, 5)
Next
End Sub

3) tambien puedes 'separar' los primeros 5 caracteres en una celda y 'el resto' en la celda adyacente [suponiendo que esta 'libre']...
usando [menu] datos / texto en columnas... / [opcion] de ancho fijo / [paso 2] -> 'pones' la separacion entre 5o y 6o campos ;)

-> tabien podrias usar [p.e. en la celda siguiente] la formula [suponiendo que el primer dato esta en 'A1']:
[B1] =izquierda(a1,5)&" "&extrae(a1,6,10)
solo toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.