Добрый вечер, профессионалы. Прошу помощи в отчете. Имеем огромный макрос. Все в идеале работает, вот только в данном месте макрос зависает на 10-15мин. Можно ли изменить какого-то оператора, возможно Вы посоветуете как ускорить работу макроса в этом периоде. Всем спасибо.
Sub
..................................
Windows("PA_command_recep_par_CM_New.xls").Activate
Range("A2:K1200").Select
Selection.Copy
Windows("PA_command_recep_par_CM_New.xls").Activate
Range("A2:K1200").Select
Selection.Copy
Windows("Otchet1.xls").Activate
Range("I4:I800").Value = Range("I4:I800").Value
Range("A3").Select
ActiveSheet.Paste
Вот знесь и начинается.....
Selection.AutoFilter Field:=6, Criteria1:="null"
Selection.AutoFilter Field:=10, Criteria1:="#n/a"
Range("A3:K1500").Select
Selection.ClearContents
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=10
Range("I4:I1000").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-54
Range("I4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Sheets("Report").UsedRange
.Parent.AutoFilterMode = 0
.AutoFilter 8, "null"
'Filtr po n/a
.AutoFilter 10, "#n/a"
.Offset(1).SpecialCells(12).EntireRow.Delete
.AutoFilter 10
.Columns(7).Offset(1).SpecialCells(12).Copy Sheets("Failure to complete order").[a1]
.Columns(3).Offset(1).SpecialCells(12).Copy Sheets("Failure to complete order").[b1]
.Columns(4).Offset(1).SpecialCells(12).Copy Sheets("Failure to complete order").[d1]
.Columns(2).Offset(1).SpecialCells(12).Copy Sheets("Failure to complete order").[e1]
.Columns(5).Offset(1).SpecialCells(12).Copy Sheets("Failure to complete order").[f1]
.Parent.AutoFilterMode = 0
End With
.............
End Sub

Казанский,
И где етот код вставлять?

Увы. не помогло :(