Sub test()
Dim t() As Variant, i As Integer, j As Integer
ReDim t(1 To ActiveSheet.Cells(ActiveSheet.Cells(65535, 1).End(xlUp).Row, 1).Row - 1, 1 To 2)
For i = LBound(t, 1) To UBound(t, 1)
t(i, 2) = Split(ActiveSheet.Cells(i + 1, 1), " ")
t(i, 1) = t(i, 2)(0)
If UBound(t(i, 2)) > 2 Then
t(i, 2) = Split(ActiveSheet.Cells(i + 1, 1), t(i, 1))(1)
Else
t(i, 2) = t(i, 2)(1)
End If
Next i
ActiveSheet.Cells(2, 3).Resize(UBound(t, 1), UBound(t, 2)) = t
End Sub