vba help to delete the column till values met desired header

Try this

Sub Test()
Dim N As Long
For N = Cells(1, Columns.Count).End(xlToLeft).Column To 3 Step -1
    If Cells(1, N) Like "COMMITED*" = False Then Columns(N).Delete
Next N
End Sub

Open up the VBA editor by hitting ALT F11

Insert a new module by hitting Insert - Module

Paste the macro into the empty sheet

Hit ALT F11 to get back to the worksheet.

Run the macro by going to tools-macro in Excel 2003 or the view ribbon in Excel 2007/2010.