Maybe this:
Option Explicit
Sub times()
Dim lr As Long, i As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To lr
If Range("A" & i).Value > 0.25 And Range("A" & i) < 0.584 Then
Range("C" & i) = "Schedule 1"
ElseIf Range("A" & i).Value > 0.584 And Range("A" & i) < 0.916 Then
Range("C" & i) = "Schedule 2"
ElseIf Range("A" & i).Value < 0.25 Then
Range("C" & i) = "Schedule 3"
ElseIf Range("A" & i).Value > 0.916 Then
Range("C" & i) = "Schedule 3"
End If
Next i
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C2:C" & lr) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:C" & lr)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
MsgBox "complete"
End Sub
Bookmarks