Two-column data transferred to single cell

[swaggerbox]

How do I do this? I have 2 columns of data: Column A and Column B. In Column A I have a list of items. In Column B, I have their corresponding prices. How do I sort them (based on their prices, the cheaper prices go first) and then display them in a single cell, with the following format: (Price_itemA) itemA#(Price_itemB) itemB#(Price_itemC) itemC, and so on.

To illustrate:
ColA ColB
Ring 9
Chalk 4
Bell 11
Hill 22

Output:
C1 = (4) Chalk#(9) Ring#(11) Bell#(22) Hill

Is there an easy way to do this?

[mana]

Option Explicit

Sub test()
    Dim r As Range
    Dim v
    Dim i As Long
    Dim s As String
    
    Set r = Range("a1").CurrentRegion
    
    With Worksheets.Add
        r.Copy .Range("a1")
        .Columns("a:b").Sort key1:=.Columns("b"), Header:=xlNo
        v = .Range("a1").CurrentRegion.Value
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End With
    
    For i = 1 To UBound(v)
        s = s & "(" & v(i, 2) & ") " & v(i, 1) & "#"
    Next
    r(1).Offset(, 2).Value = s
    
End Sub

[swaggerbox]

wow thanks mana! Is there a way to remove the last "#" ?, e.g. (1) itemA#(2) itemB#(3) itemC and not (1) itemA#(2) itemB#(3) itemC#

[mana]

r(1).Offset(, 2).Value = Left(s, Len(s) - 1)

[swaggerbox]

thanks again!