vba help to delete the column till values met desired header

Sir Its works Perfectly !!! I want one modification while run this code i want add this action( replace header value only of B1(order release date) as (commitment release date) in your code rest of all remain same....thanks alot sir

Maybe:

Sub breadwinnerZZz()
Dim i As Long
Application.ScreenUpdating = False
For i = ActiveSheet.UsedRange.Columns.count To 1 Step -1
    Select Case Cells(1, i).Value
        Case Is = "COMMITED SERVICE END"
            If Cells(1, i - 1) <> "COMMITED SERVICE COUNT" Then
                Cells(1, i - 1).EntireColumn.Delete
            End If
        Case Is = "COMMITED SERVICE COUNT"
            If Cells(1, i - 1) <> "COMMITED SERVICE RATE" Then
                Cells(1, i - 1).EntireColumn.Delete
            End If
        Case Is = "COMMITED SERVICE RATE"
            If Cells(1, i - 1) <> "COMMITED SERVICE ZONE" Then
                Cells(1, i - 1).EntireColumn.Delete
            End If
        Case Is = "COMMITED SERVICE ZONE"
            If Cells(1, i - 1) <> "COMMITED SERVICE START" Then
                Cells(1, i - 1).EntireColumn.Delete
            End If
        Case Is = "COMMITED SERVICE START"
            If Cells(1, i - 1) <> "COMMITED SERVICE" Then
                Cells(1, i - 1).EntireColumn.Delete
            End If
        Case Is = "COMMITED SERVICE"
            If Cells(1, i - 1) <> "ORDER RELEASE DATE" Then
                Cells(1, i - 1).EntireColumn.Delete
            Else
                Cells(1, i - 1) = "COMMITMENT RELEASE DATE"
            End If
    End Select
Next i
Application.ScreenUpdating = True
End Sub