Как программно отфильтровать диапазон ячеек?

[TimeStopper]

А если я хочу его распространить на несколько листов:

Sub Unique68(sheet As Worksheet)
    Dim d, r&, rg As Range
    Set d = CreateObject("scripting.dictionary")
    Set rg = sheet.Range(sheet.Cells(5, 6), sheet.Cells(5, 9))
    d.Add sheet.Cells(5, 6) & sheet.Cells(5, 7), 1
    For r = 6 To sheet.Cells(Rows.Count, 1).End(xlUp).Row
      If Not d.exists(sheet.Cells(r, 6) & sheet.Cells(r, 7)) Then d.Add sheet.Cells(r, 6) & sheet.Cells(r, 7), 1: Set rg = Union(rg, sheet.Range(sheet.Cells(r, 6), sheet.Cells(r, 9)))
    Next
    rg.Resize(, 4).Copy sheet.Cells(5, 13)
End Sub

На первой странице макрос работает нормально, но на последующих выскакивает ошибка Run-time error 1004...где-то я правильно указал диапазон?

[IgorGO]

Вы получили рабочий инструмент
и можете приспособить его к своим потребностям...

если хотите я за деньги приспособлю его хоть к Ватикану, хоть к Мекке, хоть к Махаяны - данные они и в Африке данные