You could use your formula, then filter on column B for 'Apple', and hide column B. That is not, I am fairly certain, that you would not consider a viable solution.
Here is a simple VBA solution that is easy to implement. This example assumes you wish to extract to Sheet2 and you really want to search for 'apple'.
If your extract sheet is not Sheet2, change the two "Sheet2" references to your actual sheet name, i.e. "Sheet5", "Active", or whatever the name is.
If your key word is not 'APPLE', then change the "APPLE" reference to your actual keyword, making sure it it uppercase.
After any adjustments are made to the code, then copy this event handler to the clipboard (highlight the entire code, right click inside the highlighted area, and 'Copy')
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i, LastRow
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Range("A:A").ClearContents
For i = 1 To LastRow
If UCase(Cells(i, "B").Value) = "APPLE" Then
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Cells(i, "A").Value
End If
Next i
Target.Offset(1).Select
End Sub
Open your workbook and select the sheet containing your data.
Right click the sheet tab at the bottom and select 'View Code'.
Paste the event handler into the white editing area to the right (right click inside the area and 'Paste').
Close the VBE (red button - top right).
To create a clean new extract, simply double click any cell in the worksheet.
To retain the VBA capability, save the workbook as an Excel Macro-Enabled Workbook.