With Cells(Cells.Rows.Count, 3).End(xlUp).Offset(3, 3)
    .FormulaR1C1 = "=@JoinWithoutDuplicates(R[-22]C[-4]:RC[-4],"", "")"  
    .Copy
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With

a="=СУММ("
b="адрес_верхней_ячейки"
c=":"
d="адрес_нижней_ячейки"
e=")"

.FormulaLocal = "=@JoinWithoutDuplicates(B" & PerYa + 1 & ":B" & PosYa & ";"", "")"

    Dim r1_ As Variant  ' номер строки по столбцу 3 последний заполненный
    Dim au As Variant  'массив в столбце В из которого выбираем значения
    Dim bu As Variant   'разделитель ", " после вставки в eu
    Dim eu As Variant ' ячейка для вставки уникальных значений из массива столбца С
    Dim cu As Variant, du As Variant 
    ActiveSheet.UsedRange 'сбросить результат с последней ячейкой, строкой
    r1_ = Cells(Rows.Count, 3).End(xlUp).Row 'номер последней используемой строки
    ar_ = Cells(1, 3).Resize(r1_).Value 'в массив все от С1 вниз на r1_
    t_ = "от Заказчика / Owner" 'текст для поиска
    For i = r1_ To 1 Step -1 'цикл от r1_ до 1
        If ar_(i, 1) = t_ Then 'если элемент массива с номером i равен тексту для поиска
            fl_ = 1 'флаг равен 1
            au = Cells(i + 1, 2).Resize(r1_ - i) '.Select 'здесь ???
            Exit For 'Заканчиваем цикл
        End If ' окончание if
    Next i 'окончание цикла
    If fl_ <> 1 Then 'если флаг не =1 (мы не нашли искомый текст)
        MsgBox "Текст ''" & t_ & "'' не найден в столбце С." 'выводим об этом сообщение
    End If '
    bu = ", "    'если в подряд  bu = ", "   а , если в столбец в одну ячейку, как в реестр bu = "," & Chr(10)
    eu = ""
    For Each cu In au '.Rows '.Cells    'здесь ??? For Each cu In Range("C8:C" & au).SpecialCells(xlCellTypeConstants, 23)
    du = cu.Row
    If du = r1_ Then bu = ""
    eu = eu & cu.Value & bu
    Next
    eu = Cells(Cells.Rows.Count, 3).End(xlUp).Offset(3, 3)

set au=

eu = Cells(Cells.Rows.Count, 3).End(xlUp).Offset(3, 3)

Cells(Cells.Rows.Count, 3).End(xlUp).Offset(3, 3) = eu

Sub tt()
    ActiveSheet.UsedRange
    r1_ = Cells(Rows.Count, 3).End(xlUp).Row
    ar_ = Cells(1, 3).Resize(r1_).Value
    t_ = "от Заказчика / Owner"
    For i = r1_ To 1 Step -1
        If ar_(i, 1) = t_ Then
            If i < r1_ Then
                nr_ = r1_ - i
                fl_ = 1
                ar1_ = Cells(i + 1, 2).Resize(nr_).Value
                del_ = ", "
                Set slov = CreateObject("scripting.dictionary")
                With slov
                    For j = 1 To UBound(ar1_)
                        z_ = ar1_(j, 1)
                        If z_ <> "" Then
                            If Not .exists(z_) Then
                    aaa = .Item(z_)
                            End If
                        End If
                    Next j
                    x_ = Join(.keys, del_)
                End With
                Cells(r1_ + 3, 6) = x_
            End If
            Exit For
        End If
    Next i
    If fl_ <> 1 Then
        MsgBox "Текст ''" & t_ & "'' не найден в столбце С."
        Exit Sub
    End If    '
End Sub