Help to run faster

[Guest]

Is there a way to do this faster
--
Sheets("2").Select
Selection.AutoFilter Field:=1, Criteria1:="O NARUTAC MAGIC"
Application.Run "PERSONAL.XLS!Sheet2"
Selection.AutoFilter Field:=1, Criteria1:="O NARUTAC MAGIC"
Application.Run "PERSONAL.XLS!Sheet3"
Selection.AutoFilter Field:=1, Criteria1:="O NARUTAC MAGIC"
Application.Run "PERSONAL.XLS!Sheet4"

Sub Sheet2()
'
'
Application.ScreenUpdating = False

With ActiveSheet.AutoFilter.Range
..Offset(1, 0).Resize(.Rows.Count - 1).Copy _
Sheets("Sheet2").Range("B" & Rows.Count) _
..End(xlUp).Offset(2, 0)
End With
Sheets("3").Select
Application.ScreenUpdating = False
'Selection.Autofilter

End Sub
Sub Sheet3()
'
'
Application.ScreenUpdating = False

With ActiveSheet.AutoFilter.Range
..Offset(1, 0).Resize(.Rows.Count - 1).Copy _
Sheets("Sheet2").Range("B" & Rows.Count) _
..End(xlUp).Offset(1, 0)
End With
Sheets("4").Select
Application.ScreenUpdating = False
'Selection.Autofilter

End Sub
Sub Sheet4()
'
'
Application.ScreenUpdating = False

With ActiveSheet.AutoFilter.Range
..Offset(1, 0).Resize(.Rows.Count - 1).Copy _
Sheets("Sheet2").Range("B" & Rows.Count) _
..End(xlUp).Offset(1, 0)
End With
Application.ScreenUpdating = False
End Sub

 

[Tom Ogilvy]

You could try copying all the data, then filtering on the composite data and
deleteing all the data you don't want.

 

[Guest]

I copy the filter data from Sheets ("2") Sheets ("3") & Sheets ("4") to Sheets
("Sheet2") Then run a macro to analyze the data - I was hoping there was a
faster way to collect the data to Sheet2

Thanks you for reviewing it

Esau Isaacs

 

[Tom Ogilvy]

I understood what you are doing. I suggested a change. Seems to me
filtering once is probably going to be faster than filtering 3 times.