Sub Split_Cells()
    Dim rR As Range, avData, asStr, avRes, lr As Long, lCnt As Long
    
    Set rR = Intersect(Selection.Columns(1), ActiveSheet.UsedRange)
    If Not rR Is Nothing Then
        avData = rR.Value
        If Not IsArray(avData) Then ReDim avData(1 To 1, 1 To 1): avData(1, 1) = rR.Value
        ReDim avRes(1 To UBound(avData, 1), 1 To 2)
        For lr = 1 To UBound(avData, 1)
            If Len(avData(lr, 1)) Then
            asStr = Split(avData(lr, 1), " ")
            avRes(lr, 1) = asStr(0)
            If UBound(asStr) > 0 Then avRes(lr, 2) = asStr(1)
            End If
        Next lr
        Selection.Cells(1, 1).Resize(lr - 1, 2).Value = avRes
    End If
End Sub