loop to match if shorter strings appears in longer strings

I have 2 columns of data. Column A has words of length 11-15, and Column E has words of length 7-9. What I am trying to do is see if any of the words in column E appear in column A, and then list matches next to each other in columns F G H and onward.

So, for instance, the word AIRPLANE may appear in column E and maybe PAPERAIRPLANE, AIRPLANEPILOT and MODELAIRPLANE appear somewhere in column A (there are no spaces between words and everything is capitalized). What I would like to do is have column F, G, H and I return this:

F G H I
AIRPLANE AIRPLANEPILOT MODELAIRPLANE PAPERAIRPLANE

so my idea is something like:
If A:A contains E1, cut A[n] and paste to F1 (where A[n] is the first cell that matches E1)
repeat (pasting additional matches to G1 H1 etc.) until no more matches

Then repeat everything for E2

Thanks for the help!

Here's some code that should do the trick. I have attached a file with a short example as well.

INWORD.xlsm

Please Login or Register  to view this content.

Backup your data.
Copy code to a standard module (if you don't know how, ask)
Run: MatchEwithA

Please Login or Register  to view this content.

Thank you so much, both worked as I wanted.