If Cell = peaches, Then Copy Entire Row Into A New Sheet

Of met een macro.

Sub Probeer_Dit_Misschien()
    Dim i As Long, j As Long, k As Long, ta()
    Application.ScreenUpdating = False
    For i = 2 To ActiveWorkbook.Sheets.Count
        Sheets(i).UsedRange.Offset(1).ClearContents
    Next i
    j = 2
    ta = Array("peaches", "pens", "apples")
    For k = LBound(ta) To UBound(ta)
        With Sheets("Input").Range("A1:D" & Cells(Rows.Count, 2).End(xlUp).Row)
            .AutoFilter 2, ta(k)
            .Offset(1).Copy Sheets(j).Cells(2, 1)
            .AutoFilter
        End With
        j = j + 1
    Next k
    Application.ScreenUpdating = True
End Sub