Sort multiple columns based on the price column

[sofas]

Hello, I have data. [C11:i40] Column H includes prices. I want to sort them. That is, from the smallest price to the largest price in column H using vba code.

 

[sofas]

Sorry, I did not notice what was required to sort the data by arranging the H column from largest to smallest

 

[sofas]

The following code sorts the columns ascending. How can I modify it to sort them descending on column H?

Sub Tri_column()
Dim clé() As String, index() As Long, Rng As Range
a = [C11:J38].Value: Set Rng = [C11]
Dim b()
ReDim b(LBound(a) To UBound(a), LBound(a, 2) To UBound(a, 2))
Set rCrit = CreateObject("System.Collections.Sortedlist")
For i = LBound(a) To UBound(a)
rCrit.Add a(i, 7) & i, i
Next i
For tmp = LBound(a) To UBound(a)
For arr = LBound(a, 2) To UBound(a, 2)
b(tmp, arr) = a(rCrit.GetByIndex(tmp - 1), arr)
Next arr
Next tmp
Rng.Resize(UBound(b), UBound(b, 2)).Value2 = b
End Sub