Sub ВыборкаУникальных()

Worksheets("Итоги").Activate

    ' берем диапазон ячеек из первого столбца активного листа
    Dim ПервыйСтолбец As Range: Set ПервыйСтолбец = Range("A2:AW1000")
    
    'Set ПервыйСтолбец = Range([AD2], Range("AD" & Rows.Count).End(xlUp))

    arr2 = Range("A2:AW1000").Value
    
    arr2 = ArrAutofilterEx(arr2, "37=N")

    ' выбираем из него уникальные значения
    'МассивУникальных = UniqueValuesFromArray(ПервыйСтолбец.Value, 1)
    
    МассивУникальных = UniqueValuesFromArray(ПервыйСтолбец.Value, 30)
    
    'arr2 = ArrAutofilterEx(МассивУникальных, "1=T")
    
    

    ' и заносим их в другой столбец, начиная с ячейки D1
    Worksheets("Связи").Range("A1").Resize(UBound(МассивУникальных)).Value = МассивУникальных
End Sub

МассивУникальных = UniqueValuesFromArray(arr2, 30)

Worksheets("Связи").Range("A1").Resize(UBound(МассивУникальных)).Value = МассивУникальных

arr1 = arr 2

arr1 = ArrAutofilterEx(arr1, "37=S")