VBA code to extract data to another sheet based on conditions

Hello, I would really appreciate if you could help with the following.

As seen the attachment I have three columns named Row Number, Person Name & Fruit.

I want to write a VBA code and extract the rows only whereby people with different names eat the same fruit.

So, I have two sheets in the excel file- the "Input" sheet which presents the raw data, and "output" sheet which is what I want to get.

So, I want to be able easily filter out the data based on the logic above. So in my case, output will only be the below, as these are the only raws which satisfy the condition i.e. people with different names eat the same fruit.


Is there a way I can write an VBA code and get an "output" in excel sheet similar to what I have in excel file? Thank you very much.

See the excel file