Assign Category based on a contact's job title using Vba

Hi All,

I have a workbook with 2 sheets. The first sheet (Sheet Name "Contacts") has the columns in the order: Company, First Name, Last Name, Job Title, Location. The second sheet (Sheet Name: Categories) has 2 columns in the order: Job Function and Keywords.

I need to assign the Job function to Sheet 1 (Contacts) based on the first occurrence of the keywords in Job Title of Sheet 2 (Categories) using VBA.

Here are few Examples:
Job Title 1: IT Security and Cloud Manager -> Job Function: Security
Job Title 2: Cloud and IT Security Manager-> Job Function: Cloud
Job Title 3: Technology and Security Director-> Job Function: Security
Job Title 4: Head of Application-> Job Function: DevOps
Job Title 5: Head of Application Security-> Job Function: Security

Job Functions List:
Job Function Keywords
Security Application Security
Security IT Security
Security CISO
Security Cloud Security
Security Cyber
Security Technology Security
Security Information Security
DevOps Application
DevOps DevOps
DevOps Software
DevOps IT Engineering
DevOps IT Delivery
DevOps Product
Cloud Cloud
Cloud IT Operations
Cloud IT Infrastructure
Cloud Platform


Sample Tool V2.0.xlsm