Не ми се номерират клетките. Не разбирам от макроси, но в този макрос не указва ли да се извърши филтриране? Sub Obekti() Columns("A:E").Select ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("E2:E200000"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B2:B200000"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("A2:A200000"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Лист1").Sort .SetRange Range("A1:E200000") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A1").Select Selection.AutoFilter End Sub