Filter a list based on a list of terms, then copy filtered list into a new sheet

[olliecord]

I receive a long list of data of people I want to contact, but want to filter out the people I don't want to contact.


Each row (person) will have multiple columns, one of which could be "Location" [London, Paris, New York...]
I have a list of blacklisted terms, for example [Paris, Cairo, Osaka]

Another column example would be "Job Title", [CEO of Apple, Managing Director, Sales Executive at Microsoft...]
I have a list of blacklisted terms for example only the word "Executive" or "Microsoft".

I want to filter my list of people based on the "blacklisted" terms and then copy the filtered list (good list) into another area (copying all rows).
This will remove all of the people that have a blacklisted term in their entire row.

Please can anyone provide some help with this?

 

[BSALV]

on a Mac ???

Sub test()
     Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy     'copy the visible cells in this range
     Range("A50").PasteSpecial xlValues                         'paste them here as values
End Sub

 

[olliecord]

on a Mac ???

Sub test()
     Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy     'copy the visible cells in this range
     Range("A50").PasteSpecial xlValues                         'paste them here as values
End Sub

Thank you, now how do I apply filters in this ^ above?

 

[BSALV]

Sub test()
Sheets("MySheet").ListObjects("TBL_Names").Range.SpecialCells(xlCellTypeVisible).Copy     'copy the visible cells of this list (=a listobject)
     Sheets("My Other Sheet").Range("A50").PasteSpecial xlValues     'paste thel here as valuse
End Sub

 

[olliecord]

Sub test()
Sheets("MySheet").ListObjects("TBL_Names").Range.SpecialCells(xlCellTypeVisible).Copy     'copy the visible cells of this list (=a listobject)
     Sheets("My Other Sheet").Range("A50").PasteSpecial xlValues     'paste thel here as valuse
End Sub

Thank you so much, I will give this a try now!