vba help to delete the column till values met desired header

Dear Experts


I want vba macro to delete the column values till column found exact values
I have set of mutliple column data in sheet1 i want get result in same sheet with deletion of some existing column heading found in the list of range

start search the string first COMMITED SERVICE if find the value in first row of any header delete previous columns till ORDER RELEASE DATE
2nd search string COMMITED SERVICE START if find the value in first row of any header delete previous column till COMMITED SERVICE
3rd search string COMMITED SERVICE ZONE if find the value in first row of any header delete previous column till COMMITED SERVICE START
4th search string COMMITED SERVICE RATE if find the value in first row of any header delete previous column till COMMITED SERVICE ZONE
5th search string COMMITED SERVICE COUNT if find the value in first row of any header delete previous column till COMMITED SERVICE RATE
last search string COMMITED SERVICE END if if find the value in first row of any header delete previous column till COMMITED SERVICE COUNT

find the attachment in that sheet1 contains rows header in yellow color

where finds the values delete left columns till old values met

in sheet2 is what i expect result by macro