Option Explicit  ' Обязательное явное объявление всех переменных

Private Sub Worksheet_Change(ByVal Target As Range)           ' Обработчик события изменения на листе
    Dim i           As Long                    ' Объявляем переменную для цикла
    Dim CurrentIndex As Long                    ' Объявляем переменную для хранения текущего индекса

    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then  ' Проверяем, изменена ли ячейка H5
        Application.EnableEvents = False                      ' Отключаем события, чтобы избежать повторного вызова этого события

        Dim NewValue As String   ' Объявляем переменную для хранения нового значения
        NewValue = Target.Value  ' Сохраняем новое значение из измененной ячейки

        Application.Undo         ' Отменяем последнее изменение, чтобы получить предыдущее значение

        Dim CurrentValues As String               ' Объявляем переменную для хранения текущих значений в I5
        CurrentValues = Target.Offset(, 1).Value  ' Получаем текущее значение из I5

        ' Форматируем новое значение
        Dim NameParts() As String         ' Объявляем массив строк для частей имени
        NameParts = Split(NewValue, " ")  ' Разделяем новое значение по пробелам

        If UBound(NameParts) >= 1 Then    ' Проверяем, есть ли хотя бы имя и фамилия

            ' Рассчитываем следующий индекс
            Dim Values As Variant                ' Объявляем массив для текущих значений
            Values = Split(CurrentValues, "; ")  ' Разделяем текущие значения по "; "

            For i = LBound(Values) To UBound(Values)  ' Цикл по всем текущим значениям

                If InStr(1, Values(i), ")") > 0 Then  ' Проверяем, содержит ли значение символ ")"
                    CurrentIndex = Application.Max(CurrentIndex, Val(Left(Values(i), InStr(1, Values(i), ")") - 1)))  ' Обновляем CurrentIndex, если найдено большее значение
                End If

            Next i  ' Переходим к следующему значению

            ' Включаем инициалы для имени и фамилии
            Dim FormattedNewValue As String                    ' Объявляем переменную для хранения отформатированного нового значения
            FormattedNewValue = (CurrentIndex + 1) & ") " & NameParts(0) & " " & Left(NameParts(1), 3) & "."  ' Форматируем новое значение, включая инициалы

            If UBound(NameParts) >= 2 Then                    ' Проверяем, есть ли второе имя
                FormattedNewValue = FormattedNewValue & Left(NameParts(2), 1) & "."  ' Добавляем первую букву второго имени
            End If

        Else
            FormattedNewValue = NewValue  ' Если формат неправильный, просто возвращаем новое значение
        End If

        ' Обновляем I5 с новым отформатированным значением
        If CurrentValues <> "" And InStr(1, CurrentValues, FormattedNewValue) = 0 Then  ' Если текущее значение не пустое и не содержит новое значение
            Target.Offset(, 1).Value = CurrentValues & "; " & FormattedNewValue         ' Добавляем отформатированное новое значение в текущие значения
            Target.Offset(, 2).Value = CurrentIndex + 1                    ' Обновляем индекс в J5

        ElseIf CurrentValues = "" Then                    ' Если текущее значение пустое
            Target.Offset(, 1).Value = FormattedNewValue  ' Устанавливаем отформатированное новое значение в I5
            Target.Offset(, 2).Value = CurrentIndex + 1   ' Обновляем индекс в J5
        End If

        Target.Value = ""                ' Очищаем значение измененной ячейки
        Application.EnableEvents = True  ' Включаем события обратно
    End If

End Sub