If you have only 1st name and last name separated by a space this macro will do it.
Sub Macro1()
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("B1").Select
ActiveCell.FormulaR1C1 = "=FIND("" "",RC[1])"
Selection.AutoFill Destination:=Range("B1:B65000"), Type:=xlFillDefault
Range("A1").Select
ActiveCell.FormulaR1C1 = "=LEN(RC[2])"
Selection.AutoFill Destination:=Range("A1:A65000"), Type:=xlFillDefault
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[3],RC[1]-RC[2])"
Selection.AutoFill Destination:=Range("A1:A65000"), Type:=xlFillDefault
Range("A1:A3").Select
Range("A1").Select
Selection.Copy
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A1:A65000"), Type:=xlFillDefault
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B65000"), Type:=xlFillDefault
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C65000"), Type:=xlFillDefault
Columns("A:A").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("A:C").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub
Jim