Extract string based on keyword

Hi,
I have an excel workbook with sheet call main sheet. It contains 18 records.
I will be adding more and more record by time to time in Main sheet.
Column 1, 3 and 4 has long string with some categories. I want to extract the data based on categories.
All extraction should in a new sheet.
Main sheet data should not be disturbed. I want the data to be extracted as given in the attachment (Separate sheet data-1, 3 and 4)
I should be able to add more category in subsequent column (in case new category found then It can be extracted) in all sheets.
Please provide any suitable code or vba for the same.
Also request you to provide code with comments so that I can change the code later on if any column, field, sheet or data structure is changing. (If Possible)

AttachmentSize
Sample-Extract string (1).xlsx23.34 KB