Hi
Below is code to sort Row By Row. Try in sample file
Sub sorting()
Dim lrow As Long
Dim lcol As Long
Dim rng As Range
lrow = Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row
lcol = Worksheets(1).Cells(5, Columns.Count).End(xlToLeft).Column
For i = 6 To lrow 'Change starting row
Set rng = Worksheets(1).Range("A" & i, "O" & i) 'You can change Last Column
rng.Select
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=rng, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Plan1").Sort
.SetRange rng
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next i
End Sub
Bookmarks