Here is an example

Sub Macro1()
Dim r As Range
Set r = Range("A1")
Application.ScreenUpdating = False
r.AutoFilter
r.AutoFilter Field:=1, Criteria1:="Apples"
r.SpecialCells(xlCellTypeVisible).Copy _
Destination:=Worksheets("Sheet2").Range("A1")
r.AutoFilter
End Sub