Help:Macro to search a text in each column and return value

hi all,
i am looking for a help on VBA code for the below scenario, appreciate your inputs.

scenario :
search a particular text in a column range

for ex: column B contains various fruits names differently but i want to search for a particular text(Ex:apple) and return the respective column A value

column A
112
22
34
23
675
66
556
433
Column B
Apple
Sweet apple
green apple
grapes
seedless grapes
apple small
Green grapes
red grapes

Thanks and Best Regards