Yardım sıralama macrosu

A sütunundan Z sütununa kadar olan verileri sıralama ölçüsü Sütun B ve daha sonra Sütun C olmak şartıyla ve Verilerimde üst bilgi var işaretli olacak şekilde en kısa nasıl macroyla yapabiliriz arkadaşlar? Aşağıdaki macro ile oluyor ancak daha kısa olursa dosya biraz daha hızlı olacaktır.



Sub sırala()
'
' sırala Makro
'

'
Columns("A:Z").Select
ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add2 Key:=Range("B2:B835") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add2 Key:=Range("C2:C835") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("DATA").Sort
.SetRange Range("A1:Z835")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub