=СПИСОК!$A$1:$A$100

=ЕСЛИОШИБКА(ИНДЕКС(СПИСОК!$B$1:$B$100;ПОИСКПОЗ(D2;СПИСОК!$A$1:$A$100;0));"")

=ЕСЛИ(ИЛИ(F2="";G2="");"";СЦЕПИТЬ(F1185;" – ";G1185))

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ExitHandler
    Application.EnableEvents = False

    Dim rng         As Range
    Set rng = Me.Range("F2:G1999", "K2:P1999")
' Все заглавные
            Target = UCase(Target.Value)
    If Target.CountLarge = 1 Then

        If Not Intersect(Target, rng) Is Nothing Then
            AutoFitRow Target
        End If

    End If

ExitHandler:
    Application.EnableEvents = True
End Sub

Private Sub AutoFitRow(ByVal cell As Range)
    Dim r           As Long
    r = cell.Row

    With Rows(r)
        .AutoFit

        If .RowHeight < 30 Then .RowHeight = 30
        If .RowHeight > 120 Then .RowHeight = 120
    End With

End Sub

{=ЕСЛИОШИБКА(ИНДЕКС('2026'!J$2:J$5000;МОДА(ЕСЛИ((СЧЁТЕСЛИ(A$1:A1;'2026'!J$2:J$5000)=0)*('2026'!J$2:J$5000>0);ПОИСКПОЗ('2026'!J$2:J$5000;'2026'!J$2:J$5000;0)+{0;0})));"")}