pasar columnas de word a excel

[3pies]

Yo te propongo otra cosa. Pruébala y me dices que te parece:

Código:

Sub reorganizar_todo_que_estoy_desesperado()
'********************************************************************************
'Tenemos que situarnos en la primera celda donde tengamos los datos a reorganizar
'********************************************************************************
'Ocultamos el procedimiento para que no se vea en pantalla
'nada de lo que hacemos
Application.ScreenUpdating = False
'Mientras encontremos datos en la fila en cuestión,
'que ejecute el macro
Do While Not IsEmpty(ActiveCell)
  'Primero nos fijaremos en qué celda estamos,
  'para volver a ella una vez arreglada la fila
    dondeestoy = ActiveCell.Address
 'Descomponemos la cadena, en subcadenas,
 'para lo cual indicamos el delimitador " ", aunque
 'por defecto, podríamos haberlo omitido, pues es ese mismo (espacio)
    datos = Split(ActiveCell, " ")
    For i = 0 To UBound(datos)
       'ponemos cada dato del array, en una columna
        ActiveCell = datos(i)
       'nos desplazamos a la columna adyacente (de la derecha)
        ActiveCell.Offset(0, 1).Select
    Next 'Seguimos con el bucle
    'Volvemos donde estábamos inicialmente
    Range(dondeestoy).Select
    'pasamos a la fila siguiente, y volvemos a recorrer el bucle
    ActiveCell.Offset(1, 0).Select
Loop
'Mostramos todo de nuevo
Application.ScreenUpdating = True
'Ahora habría que hacer una donación de 1000 millones
'de dólares a 3pies, pero como es Navidad, estás perdonado...
End Sub

Salu2