資料篩選問題

Private Sub CommandButton1_Click()
'清除表單顏色
Range("A5:Q200").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-18
Selection.Interior.ColorIndex = xlNone

'篩選表單
Sheets("彙總表").Range("A2:H3600").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("篩選區").Range( _
      "A1:B2"), CopyToRange:=Range("A4:H3600"), Unique:=False
ActiveWindow.SmallScroll Down:=-12

'排序
Range("A4:H3600").Select
ActiveWindow.SmallScroll Down:=-60
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      Range("F2").Select
End Sub

Private Sub CommandButton4_Click()
'清除表單顏色
Range("A5:Q200").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-18
Selection.Interior.ColorIndex = xlNone

'篩選表單
Sheets("彙總表").Range("A2:H3600").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("篩選區").Range( _
      "A1:D2"), CopyToRange:=Range("A4:H3600"), Unique:=False
ActiveWindow.SmallScroll Down:=-12

'排序
Range("A4:H3600").Select
ActiveWindow.SmallScroll Down:=-60
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
      Range("F2").Select
End Sub
在表單中二層資料篩選為何篩選值速度變很慢，不知何處出了問題，大大是否幫解答？

未命名.jpg (39.63 KB)