Help editing a macro for excel

Hello,

I have a list of names in the form LastName FirstName. For example: Smith John. Most names consist of only one space (between the last and first name); however, some last names contain spaces within it for example: El Dir Hamil, which has a first name of Amir so this appears as El Dir Hamil Amir in the list. I wrote a macro: what I want it to do is take the first name (which appears after the last space) and put it infront of the last name, withouth alterning the last name. So the list sould then appear as FirstName LastName, for example: John Smith and Amir El Dir Hamil. The macro I wrote works fine for names that only contain one space, but for ones that contain more than one space I'm getting a result like this: El Dir Amir Hamil < it takes the first name and only moves it before the "word" that appears before it, but i want the first name to move all the way infront of these three "words".

This is the macro I wrote please help with adjusting it to work as described above:

Public Sub RearrangeName()

Dim i As Long, j As Long, LR As Long
Dim oldname As String, newname As String, nchar1 As String, nchar2 As String
LR = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To LR

oldname = Cells(i, "B").Value
If oldname <> "" Then
newname = Left(oldname, 1)
For j = Len(oldname) To 1 Step -1
nchar1 = Mid(oldname, j, 1)
nchar2 = Mid(oldname, 1, j - 1)
If nchar1 = " " Then
newname = Right(oldname, Len(oldname) - j)
newname = newname & " " & nchar2
End If
Next j

Cells(i, "B") = newname
End If
Next i

End Sub

Thanks,