Sub ruthm8611()
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
With Range("C2:C" & lr)
.AutoFilter Field:=1, Criteria1:="apple"
With Range("E2:H" & lr)
.SpecialCells(xlCellTypeVisible).Copy Sheets("Another Sheet").Range("E" & Rows.Count).End(3)(2)
End With
.AutoFilter
End With
End Sub