Function ВЫВОД_УНИКАЛЬНЫХ(Диапазон As Range, Номер_результата As Integer)
'возвращает N-ное из уникальных значений в указанном диапазоне
    Dim iArr, arr(): arr = Intersect(Диапазон, Диапазон.Parent.UsedRange.Cells.SpecialCells(xlCellTypeVisible)).Value
    With CreateObject("Scripting.Dictionary")
        .comparemode = vbTextCompare   ' Создаем словарь
        For Each iArr In arr
            If Trim(iArr) <> "" Then iArr = .Item(Trim(iArr))   'попытка чтения значения по отсутствующему ключу добавит ключ в словарь ( см., например, http://program.rin.ru/cgi-bin/print.pl?id=120#17 )
        Next
        arr = .Keys   ' массив ключей копируем в массив (напрямую читать из .Keys не получается, т.к. словарь определён не явно)
        If Номер_результата >= 1 And Номер_результата <= .Count Then
            ВЫВОД_УНИКАЛЬНЫХ = arr(Номер_результата - 1)
        Else
            ВЫВОД_УНИКАЛЬНЫХ = CVErr(xlErrNA)
        End If
    End With
End Function

MultiSelect:=False)

FileFilter:="All files (*.csv), *.csv"

=ИНДЕКС({"Категория Iэ, группа 1";"Категория Iэ, группа 2";"Категория Iэ, группа 3";"Категория Iэ, группа 4";"Категория IIэ, группа 1";"Категория IIэ, группа 2";"Категория IIIэ, группа 1";"Категория IIIэ, группа 2";"Категория IVэ, группа -";"Не применимо"};11-ЕСЛИ(ИЛИ(A4<=115;B4<=0;07);1;МАКС(ПРОСМОТР(-A4;-{999;560;520;450;350;250;115};{10;9;8;6;5;3;1});ЕСЛИ(B4<=0;07;1;ЕСЛИ(B4<1;6;2;ЕСЛИ(B4<4;3;ЕСЛИ(B4=4;4;ЕСЛИ(B4<8;5;ЕСЛИ(B4=8;6;7)))))))))

=ИНДЕКС({"Категория Iэ, группа 1","Категория Iэ, группа 2","Категория Iэ, группа 3","Категория Iэ, группа 4","Категория IIэ, группа 1","Категория IIэ, группа 2","Категория IIIэ, группа 1","Категория IIIэ, группа 2","Категория IVэ, группа -","Не применимо"},11-ЕСЛИ(ИЛИ(A4<=115,B4<=0,07),1,МАКС(ПРОСМОТР(-A4,-{999,560,520,450,350,250,115},{10,9,8,6,5,3,1}),ЕСЛИ(B4<=0,07,1,ЕСЛИ(B4<1,6,2,ЕСЛИ(B4<4,3,ЕСЛИ(B4=4,4,ЕСЛИ(B4<8,5,ЕСЛИ(B4=8,6,7)))))))))

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, k As Long, l As Long

    If Not Intersect(Target, Range("B1:B4")) Is Nothing Then
        With Worksheets(2).UsedRange
            Set c = .Find(Range("B1").Value, LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then
                If c.Next = "+" Then k = c.Column
            End If
        End With
        Select Case k
        Case 1
            Cells(Rows.Count, 7).End(xlUp)(2).Resize(, 4) = Application.Transpose(Range("B1:B4"))
        Case 7
            Cells(Rows.Count, 15).End(xlUp)(2).Resize(, 4) = Application.Transpose(Range("B1:B4"))
        Case Else
            MsgBox "Нет такой машины на сайте", vbCritical
        End Select
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "B1" Then Exit Sub
    Dim c As Range, k As Long, l As Long
    With Worksheets(2).UsedRange
        Set c = .Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            If c.Next = "+" Then k = c.Column
        End If
    End With
    Select Case k
    Case 1
        Cells(Rows.Count, 7).End(xlUp)(2) = Target
    Case 7
        Cells(Rows.Count, 15).End(xlUp)(2) = Target
    Case Else
        MsgBox "Нет такой машины на сайте!", vbCritical
    End Select
End Sub

=ВПР(A2;Лист2!$A$2:$A$10&" "&Лист2!$B$2:$B$10&" "&Лист2!$C$2:$D$10;2;0)

                Worksheets(NOMFEUILLE).Rows("3:3").EntireRow.AutoFit