Sorting using Macro

Hi all, I have a requirement to sort on each item, if that item text is present in a cell.Please see the attached file. 'Reference' sheet has names of fruits. Now if we go to 'Results' sheet, ' T 'column, it has many fruits names separated by semi-colon. If we filter using "contains", for fruit, say , apple, it will give four results. So, all these four results should be copied(entire row) to another worksheet(name= apple), including the title, as shown done manually in 'Apple' worksheet. Similarly it should happen for other fruits also. Can this be automated, perhaps by using a macro... ? I use 2003 version.

Any help will be highly appreciated ...

Thanks in advance !