Veja se é isso:

Sub OrdenarLinhas()

Dim rng As Range

i = 6
j = 11

Do While i <= j
Set rng = Range("B" & i & ":G" & i)
ActiveWorkbook.Worksheets("Folha2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Folha2").Sort.SortFields.Add Key:=rng, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Folha2").Sort
.SetRange rng
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
.SortFields.Clear
End With
i = i + 1
Set rng = Nothing
Loop

End Sub

Ops, cheguei atrazado, valeu Edson, solução primorossa.

Mas só para constar,
Alexandre, para se classificar em Linhas Horizontal sem VBA, faça o seguinte :

Para classificar os dados horizontalmente, selecione-os e clique em "Classificcar" e em "Opções", e no painel "Orientação", especificando "Da esquerda para a direita".

[]s

Boa noite!!

Edson, muito obrigado!!!!..ficou perfeito!!!

Obrigado!!!

At..

Boa noite!!

Mauro, achei interessante mas, não sei o que fiz de errado..testei e não fui bem sucedido.

Obrigado!!..Assim mesmo!!

Att..