=#01234&" - "&b2
or in b3

=b1&" - "&b2

Sub ConcatenateMe()
Dim lastrow As Long, r As Long
Dim num1 As String
Dim num2 As String
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
 For r = lastrow To 1 Step -1
    If Cells(r, "A") <> "" Then
       Cells(r, "A").Select
       num1 = Selection.Value
       num2 = Selection.Offset(0, 1).Value
    End If
    With ActiveCell
       .Value = "#" & num1 & " - " & num2
    End With
 Next r
End Sub

hth
Vaya con Dios,
Chuck, CABGx3

Here is a macro with choices.

Sub Add_Text()
Dim cell As Range
Dim moretext As String
Dim thisrng As Range
   On Error GoTo endit
   whichside = InputBox("Left = 1 or Right =2")
   Set thisrng = Range(ActiveCell.Address & "," & Selection.Address) _
           .SpecialCells(xlCellTypeConstants, xlTextValues)
   moretext = InputBox("Enter your Text")
   If whichside = 1 Then
       For Each cell In thisrng
           cell.Value = moretext & cell.Value
       Next
   Else
       For Each cell In thisrng
           cell.Value = cell.Value & moretext
       Next
   End If
   Exit Sub
endit:
   MsgBox "only numbers or formulas in range"
End Sub

Gord Dibben  MS Excel MVP