Sub test()
Dim i As Integer
For i = 1 To Range('A65536').End(xlUp).Row
Cells(i, 2).Value = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, ' '))
Cells(i, 3).Value = Mid(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, ' ') + 3, Len(Cells(i, 1).Value))
Next i
End Sub