Find - Array - Delete Row Issue

Greetings,
1- Open enclosed file.
2- Run Macro1.

Sub Macro1()
For i = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
    On Error Resume Next
    ActiveSheet.Columns("B:B").Find(What:=Array("APPLE", "ORANGE"), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).EntireRow.Delete
    On Error GoTo 0
Next i
End Sub

Red line need to be corrected. (Because Macro1 only deletes APPLE involving cells, not ORANGE.) (I want to delete APPLE involving cells, and ORANGE involving cells.)