["VBA"] Sort rows

[montecarlo2012]

Hi. I am trying to sort some row from smallest to largest but excel looks like support only vertical data.
I have more than 7000 rows, but in random order,
my array is B2:F8905
this is a tiny example of what I have

and this is the expecting results:

most of the examples I tried do not work, like this

Sub So()

Dim ws As Worksheet
Dim Rng As Range
Set ws = Worksheets("Sheet1")
Set Rng = ws.Range("B2:F8905")

Rng.Sort Key1:=Range("2:2"), Order1:=xlAscending
End Sub

I know I am missing something, but
Thanks guys.

 

[mrshl9898]

Try this:

Sub Addto6_49()
Dim ws As Worksheet
Dim Rng As Range
Dim r As Long
Set ws = Worksheets("Sheet1")

r = 2
For r = 2 To ws.UsedRange.Rows.Count
Set Rng = ws.Range("B" & r & ":F" & r)
Rng.Sort Key1:=Rng, Order1:=xlAscending
Next r

End Sub

 

[montecarlo2012]

Thank you mrshI9898 but do not work. still random order.

 

[mrshl9898]

Strange, is this matching your data and results?

 

[montecarlo2012]

Thank you, I got it now, thanks
is working

 

[mrshl9898]

Good to hear