Remove words by substring list

It can be done by formula but is made difficult 1) by so many stubs and 2) different capitalisation within stubs. VBA is probably better.

=IFERROR(TEXTJOIN(" ",,FILTERXML("<A><B>"&SUBSTITUTE(A2," ","</B><B>")&"</B></A>","//B[not(contains(., 'auti') or contains(., 'AUTI') or contains(., 'tion') or contains(., 'mpl') or contains(., 'Mpl'))]")),"")