Private Sub Worksheet_Change(ByVal Target As Range)
Dim nkey$
If Target.Row = 5 Then
If Cells(4, 1) = 0 Then
nkey = "B4:AX4"
Else
nkey = "B5:AX5"
End If
Application.EnableEvents = False
   ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range(nkey), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("B4:AX5")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
End If
Application.EnableEvents = True
End Sub