Excel - Se puede buscar 1 dato de una lista, editarlo en G3 y devolverlo ya editado a la lista de nuevo?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Nombre As String, Fila As Long

    ' ---&--- PARA PROFESORES

    If Target.Address = "$G$2" Then

        Nombre = Target.Text

        Fila = 3

        While Cells(Fila, "A") <> Nombre And Cells(Fila, "A") <> ""

            Fila = Fila + 1

        Wend

        If Cells(Fila, "A") = Nombre Then

            Application.EnableEvents = False

            Range("G3") = Cells(Fila, "B")

            Application.EnableEvents = True

        Else

            Application.EnableEvents = False

            Range("G3") = ""

            Application.EnableEvents = True

        End If

    End If

    ' ---&--- PARA ALUMNOS

   If Target.Address = "$L$2" Then

        Nombre = Target.Text

        Fila = 3

        While Cells(Fila, "I") <> Nombre And Cells(Fila, "I") <> ""

            Fila = Fila + 1

        Wend

        If Cells(Fila, "I") = Nombre Then

            Application.EnableEvents = False

            Range("L3") = Cells(Fila, "J")

            Application.EnableEvents = True

        Else

            Application.EnableEvents = False

            Range("L3") = ""

            Application.EnableEvents = True

        End If

    End If

End Sub