Help needed with VBA code to extract Phrases/ords from text string

Dear All
I was wondering whether anyone can help e with wrting a VBA code to do the follwoing:

I have attached a simple spreadsheet to demonstrate what I need to do if at all possible.

I the attached file I have list of Departments and comments which were made by customers who visited those departments (Columns A:B)
In Column J I have added some words or phrases which I need to search for in Col B.

What I need to do is to write a code to look for the words or phrases in Column J and extracts those words/phrases from Column B. I then need to create a pivot table which will give eme a count of those words for each department. For example the word 'rude' appears twice in Col B for department CCC and word 'pleased' appear twice for Dept AAA and ' very unpleasent' appears once for once DDD and so on. so I wii have a pivot table look slike

AAA pleased 1
CCC Rude 2
DDD Very unpleasent 1

Over time I will add to the list of words/phrases in Col J.

In my actual spreadsheet I have created a Pivot report from Pivot table which list the Comments per depart,emt (I have over 20000 rows).

Is this something that easily can be done as I am very novice with VBA.

If anyone can help me I will apprecaite it as this will really help me in my current work.

Thanks in advance

Dear Judgeh59

Thanks so much for this. This is exactly what I need however I am confused with the data in Col D & E. Can the code just look at the A & B and see if the words in Col J are found. Not sure abut you assumption for D & E. In the actual spreasdsheets the comments and Dept name are submitted by customers and I need to look at key phrases within those comments if this makes sense.

Thanks again

I just went through your code again and relaised how its done.

This is fantastic and has saved me so much time. Thank you so much for this as it does exactly what I need.