Loop to concatenate cells

[jolivanes]

Like this?
This assumes that Column C is free to use.

Sub wongsh()
Dim c As Range
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value <> 0 Then c.Offset(, 1).Value = c.Value & " units of " & c.Offset(, -1).Value
    Next c
End Sub