Pues, ante todo, si realmente todos tus textos tuvieran la misma caracteristcias, es decir, el mismo numero de caracteres por cada apellido y/o nombre, con una simple formula seria super facil:

=IZQUIERDA(A1,5)&" "&EXTRAE(A1,7,6)&" "&EXTRAE(A1,13,5)&" "&EXTRAE(A1,18,5)

Pero, como digo, necesariamente tendrian que tener las mismas caracteristicas ;)
sino, lo mismo que F2 ya que tendrias que hacer una formula distinta por cada texto

y sobre las macros, pues, sino sabes ni un poco de VBA , pues, dificilemten alguien te la hara toda, y ademas, si se da el dilema que menciono, tampoco se podria facilmente

Abraham

Hola Marino, ve si esto te sirve, coloca el codigo en el modulo de la hoja donde tengas los nombres, selecciona los nombres y corre la macro, separara los nombres en columnas y podras concatenar insertando los caracteres que4 desees, suerte;
Sub SepararMayus()
Dim rCell As Range
Dim lCount As Long

With CreateObject("vbscript. Regexp")
. Pattern = "([a-z])([A-Z])"
. Global = True
For Each rCell In Selection
lCount =. Execute(rCell). Count
If lCount Then rCell. Resize(, lCount + 1) = Split(. Replace(rCell, "$1" & Chr(1) & "$2"), Chr(1))
Next rCell
End With
End Sub

Hola:

Armando, en realidad al ser una macro publica, obviamente no es necesario que vaya en el modulo de la hoja respectiva, y otra cosa importante, es que si los nombres estan en diferentes columnas contigua, pues dicha macro sobreescribira las columnas

La idea es buena, pero, podrias mejorarla ;)

Abraham

Hola Abraham, coincido en todo pero con la info proporcionada no quise elaborar mas en tanto no avise Marino, ya ves cuantos temas quedan en el aire, bye

Hola, no habia revisado el foro hace algun tiempo,
este tema ya lo resolvi
hice lo siguiente
con la funcion extrae() separe los caracteres que necesitaba, en la siguiente columna escribi el separador y luego concatene todas las celdas, auque esta no fue la solucion mas rapida y la mejor solucion esta es la primera opcion

de todas maneras agradezco a todas las personas que dedican su valioso tiempo en darme una respuesta