Sort Data

Sub SortData() Dim Ws As Worksheet, FirstCell As String, Rng As Range Set Ws = ActiveSheet FirstCell = Ws.Range("A1").Address Set Rng = Ws.Range(FirstCell, Ws.Cells(Ws.Rows.Count, Ws.Cells(Ws.Range(FirstCell).Row, Ws.Columns.Count).End(xlToLeft).Column).End(xlUp)) With Ws.Sort .SortFields.Clear .SetRange Rng .SortFields.Add2 Key:=Ws.Range("C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SortFields.Add2 Key:=Ws.Range("D2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal .Header = xlNo .MatchCase = False .Apply End With End Sub