Filter cells based on a different column

[topi1]

Hoping to get a VBA for the following tasks. Thank you in advance.

Sheet name is "Filter"
Column P has strings which may be more than word.
Column F has cells which may have sentences.
Some cells in the column F may have a single occurance of one of the column P strings.
I want the vba to first remove column F cells which do not have any P1 strings.
Then, I want vba to remove P1 strings from F cells leaving behind remaining contents that may be beofre &/or after the string.

 

[topi1]

Correction....
Hoping to get a VBA for the following tasks. Thank you in advance.

Sheet name is "Filter"
Cells P1:P10 have strings which may be more than word.
Column F has cells which may have sentences.
Some cells in the column F may have a single occurrence of one of the P1:P10 strings.
I want the vba to first remove column F cells which do not have any of the P1:P10 strings.
Then, I want vba to remove P1:P10 strings from F cells leaving behind remaining contents that may be before &/or after the string.