Private Sub Worksheet_Change(ByVal Target As Range)

Dim parca As String, i As Long, kacinci As Integer



    If Target.Row < 2 Then Exit Sub

    If Target.Column <> 11 Then Exit Sub

      

    If Target.Rows.Count = 1 Then

        kacinci = InStrRev(Target.Value, " ")

        If kacinci > 0 Then

            parca = Mid(Target.Value, kacinci + 1)

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

        Else

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

        End If

    ElseIf Target.Rows.Count > 1 Then

        For i = Selection.Row To (Selection.Cells.Count - 1) + Selection.Row

            kacinci = InStrRev(Cells(i, Target.Column).Value, " ")

            If kacinci > 0 Then

                parca = Mid(Cells(i, Target.Column).Value, kacinci + 1)

                Cells(i, "M").Value = IIf(parca = "", "", parca)

            Else

                Cells(i, "M").Value = ""

            End If

        Next

    End If

End Sub