Try this:
Sub Resort()
Dim lngStartRow As Long, lngEndRow As Long, lngLastRow As Long
Dim lngColCount As Long
Dim rngSort
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
lngColCount = Cells(1, Columns.Count).End(xlToLeft).Column
lngStartRow = 2
Do
lngEndRow = Cells(lngStartRow, 1).End(xlDown).Row - 1
Range(Cells(lngStartRow, "C"), Cells(lngEndRow, lngColCount)).Sort key1:=Cells(lngStartRow, "K"), _
order1:=xlAscending, key2:=Cells(lngStartRow, "I"), order2:=xlAscending, header:=xlNo
lngStartRow = lngEndRow + 2
Loop While lngEndRow < lngLastRow
End Sub
Bookmarks