Sub SortDaysProvider2()
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets("DATABNY").Sort
  For DayRange = 1 To 365
    TopRow = (DayRange * 16) + 14
    sRange = "B" & TopRow & ":" & "O" & TopRow + 15
    fRange = "B" & TopRow & ":" & "B" & TopRow + 15
    .SortFields.Clear '****************************
    .SortFields.Add Key:=Range(fRange), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range(sRange)
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  Next DayRange
End With
End Sub