ActiveWorkbook.Worksheets("ami_emr_appointments").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range( _
        "A2:A4680"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 0, 0)
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range( _
        "A2:A4680"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 255, 0)
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range( _
        "B2:B4680"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 255, 0)
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range( _
        "C2:C4680"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 255, 0)
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range( _
        "B2:B4680"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
        = RGB(255, 255, 0)

With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:W4680")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With