Separar Datos de una celda

[Hola. Prueba con esta a ver si te sirve.

Sub Separa()
Dim c As Range
Dim i As Integer
Dim n As Integer
Dim p() As String
Dim s As String
Dim t As String

s = " "
For Each c In Selection
t = c.value
p = Split(t, s)
n = UBound(p)
For i = 0 To n
c.Offset(0, i + 1) = p(i)
Next i
Next c
End Sub