Large amount of data sorting

Odintsov_Maksim 

Not entirely sure what you mean there, sorry.

The modified version below detects the last non-empty cell in each row and applies the sort on a range with that cell as the upper bound. Note that, if any of the blank cells in your range in fact contain the null string (""), e.g. as a result of formulas within those cells, then it will not give correct results - in that case let me know and I will modify the code.

I have also amended it so that it runs on whichever is the active sheet at the time of running.

Sub SortAllRows()

Dim LRow    As Long
Dim i       As Long
Dim MyRow   As Range
Dim MyCol   As Long
Dim MyKey   As Range

With ActiveSheet
    LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 3 To LRow
        MyCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
        If MyCol <> 1 Then
            Set MyRow = .Cells(i, 2).Resize(, MyCol - 1)
            Set MyKey = Application.Index(MyRow, 1)
            MyRow.Sort Key1:=MyKey, Order1:=xlAscending, Orientation:=xlLeftToRight
        End If
    Next i
End With

End Sub

Regards