Range("A2").Select

    ActiveSheet.Sort.SortFields.Clear

    ActiveSheet.Sort.SortFields.Add Key:= _

        Range("E2", Range("E1").End(xlDown)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _

        :=xlSortNormal

    ActiveSheet.Sort.SortFields.Add Key:= _

        Range("F2", Range("F2").End(xlDown)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _

        :=xlSortNormal

    With ActiveSheet.Sort

        .SetRange Range("A1", Range("q1").End(xlDown))

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

Set myrng = Range("E2", Range("E2").End(xlDown))