Macro to search for specific words in proximity to each other?

Hi,

Basically, I have two columns of cells.

Column A has a reference number, and Column B has a product.

I'm trying to fashion a macro that will recognise when a reference in Column A has a specific pair of products. And copy the data over to the next column.

The products in orders can exist seperately on different lines, but I'm looking to filter out order references that have both specific products on order.
Here's an example using fruit:

A	B	C	D
001	APPLE	001	APPLE & PEAR
001	PEAR	004	APPLE & PEAR
002	APPLE
003	APPLE
004	APPLE
004	PEAR
005	PEAR
006	APPLE

Is this at all possible?

Any help you can send my way would be much appreciated.