Si es un gran volumen de información no te recomiendo usar fórmulas por la demora en los cálculos.
En ese caso te ofrezco una macro que hará todos los pasos explicados anteriormente.
Ingresa al Editor de Macros, inserta un módulo y copia el siguiente código:
Sub SepararTexto()
'x Elsamatilde
' Selecciona el rango de datos
finx = Range("A" & Rows.Count).End(xlUp).Row
'los datos empiezan en fila 2
Range("A2:A" & finx).Select
'Se separan los textos a partir de la col B con un espacio como delimitador
Selection.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True
End SubPuedes ejecutarla desde el mismo Editor, o desde la opción macros, colocar un atajo de teclado, o botón en la hoja.... bueno, hay varias maneras de ejecutar una macro ;)
Te recuerdo que tendrás que ajustar manualmente los casos como los marcados en la imagen:

PD) En el cap 4 del manual 500Macros en sus 2 versiones encontrarás explicado el tema 'Como ejecutar macros' ... sino consulta aquí comentando cuál será el modo más apropiado para tu libro.

Sdos.
Elsa
https://aplicaexcel.com/manuales/