Option Explicit

Sub InExSu()

    Фильтр_Массивом _
            Диапазон_для_Фильтра(), Масcив_1d_c_листа( _
                    Диапазон_для_Массива())
End Sub

Private Function Диапазон_для_Массива() As Range

    With Worksheets("KV")
        Set Диапазон_для_Массива = .Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
    End With

End Function
Private Function Масcив_1d_c_листа(rng As Range) As Variant

    Dim arr_1D() As String    ' иначе не фильтрует
    ReDim arr_1D(1 To rng.Count)

    Dim el As Range

    For Each el In rng

        arr_1D(el.Row) = el.Value
    Next

    Масcив_1d_c_листа = arr_1D()

End Function

Private Sub Фильтр_Массивом(rng As Range, arr_1D As Variant)

    rng.AutoFilter Field:=8, Criteria1:=arr_1D, Operator:=xlFilterValues
End Sub

Private Function Диапазон_для_Фильтра() As Range
    
    Dim ws As Worksheet
    Set ws = Worksheets("Список")

    With ws

        If .FilterMode Then .ShowAllData

        Set Диапазон_для_Фильтра = .Cells(3, 1).CurrentRegion

    End With
End Function