Sub Перепупкин()
'
' Перепупкин Макрос
'

'
ActiveSheet.Range("$A$1:$L$13236").AutoFilter Field:=12, Criteria1:= _
"=Перепупкин", Operator:=xlOr, Criteria2:="=Резерв, Района"
Range("A1").Select
ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _
Key:=Range("B2:B13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _
Key:=Range("C2:C13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _
Key:=Range("D2:D13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort.SortFields.Add _
Key:=Range("A2:A13236"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Поисковая выгрузка").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub