Hjælp til opdeling af navn i kollonne

Hej alle :-)

Jeg har følgende formel, som jeg har brugt til følgende:

"
Arket består af 2 kolonner - D samt E.

Det er sådan, at der i kolonne D skal stå fornavn og i kolonne E, skal der stå efternavn. Problemet er bare, at hele navnet står i kolonne D. Derfor skal efternavnet altså rykkes over i kolonne E, og fornavnet skal blive stående i Kolonne D. Er er nogen, der ved, hvordan det gøres smartest, altså så det ikke skal rettes manuelt ?

"

Nu er det sådan, at formlen ikke tager hensyn til de celler, hvor der foreksempel kun står et navn eller hvis der ikke står noget, så laver den en fejl. Kan man tilføje noget i formlen, så den ignorer, hvis der f.eks. kun står et fornavn ?

Public Sub SplitNavn()
    Dim startRow As Integer
    Dim endRow As Integer
    Dim sheetName As String
    Dim r As Range
    Dim i As Integer
    Dim fullName As String
    Dim splitPos As Integer
   
    startRow = 1
    endRow = 3
    sheetName = "Sheet1"
   
    For i = startRow To endRow
        Set r = Worksheets(sheetName).Cells(i, 4)
        fullName = r.Value
        splitPos = InStrRev(fullName, " ")
        r.Value = Left(fullName, splitPos - 1)
        r.Offset(0, 1).Value = Mid(fullName, splitPos + 1)
    Next i
End Sub