Select Code to Download

ActiveWorkbook.Worksheets("ami_emr_appointments").Sort.SortFields.Clea
+r
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range( _
...
        .SortMethod = xlPinYin
        .Apply
End With

sub sortByColor()
{
...
        }
    }
}