Sub Macro1()
Dim LastRow As Long, i As Long
LastRow = Range("A65536").End(xlUp).Row
For i = 1 To LastRow
Range(Cells(i, "A"), Cells(i, "E")).Sort Key1:=Cells(i, "A"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next i
End Sub
Sub Macro1()
Dim LastRow As Long, i As Long
LastRow = Range("A65536").End(xlUp).Row
For i = 1 To LastRow
Range(Cells(i, "A"), Cells(i, "E")).Sort Key1:=Cells(i, "A"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight
Next i
End Sub