Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Row < 2 Then Exit Sub

    If Target.Column <> 11 Then Exit Sub

    If Target.Rows.Count <> 1 Then Exit Sub

    If Mid(Target.Value, InStrRev(Target.Value, " ") + 1) = "" Then

        Cells(Target.Row, "M").Value = ""

    Else

        Cells(Target.Row, "M").Value = Mid(Target.Value, InStrRev(Target.Value, " ") + 1)

    End If

End Sub