Ordenar linhas de uma vez, não creio ser possivel,
Pode ser feito utilizando-se uma area auxiliar, junto com formulas tipo Menor;porem no anexo segue exemplo utilizlando-se codigo VBA:

Sub Ordena()
Dim lastRow As Long, lastCol As Long
lastRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
lastCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

For i = 1 To lastRow
    Range(Cells(i, 2), Cells(i, lastCol)).Select
    Selection.Sort Key1:=Range("B" & i), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
Next
End Sub

Boa tarde!!
Reinaldo se me permite..
Exemplo VBA, parte II

Sub Classificação()
    Dim oCell As Range, x As Range
    Dim Ws As Worksheet
    Set Ws = Worksheets("Plan1")
    For Each oCell In Ws.Range(Ws.Cells(1, 1), Ws.Cells(Ws.Rows.Count, 1).End(xlUp))
        Set x = Ws.Range(oCell.Offset(0, 1), Ws.Cells(oCell.Row, Ws.Columns.Count).End(xlToLeft))
        x.Cells.Sort key1:=x.Cells
    Next oCell
End Sub

Obrigado = Reinaldo e Alexandrevba
Consegui ficou legal.
Otimo forum , respostas rapidas.
Parabens a todos.

Boa noite!!

E porque removeu o seu obrigado (a mãozinha)???? , poxa estava contando tanto com ela....