Concatenar variables usando imputbox

Buenas tardes
Me encuentro elaborando una macro en excel, pero he tenido inconvenientes en lo siguiente:
Necesito desarrollar un código en vba para excel que me permita capturar las referencias de varias celdas (ubicadas sobre la misma fila pero en diferentes columnas) en distintas variables, y que posteriormente en otra celda la macro realice una fórmula concatenando los valores almacenados en las variables, que deben corresponder a las referencias de las celdas que se deben concatenar y no al contenido de las mismas....
He estado tratando de realizar dicho trabajo utilizando inputbox, pero hasta el momento no me ha funcionado...
El código que he estado tratando de utilizar es el siguiente:
Sub Crear_código_único()
Dim Var1 As String
Dim Var2 As String
Dim Var3 As String
Dim Var4 As String
Dim Var5 As String
Dim Column1 As Range
Dim Column2 As Range
Dim Column3 As Range
Dim Column4 As Range
Var1 = InputBox("Por favor indique la celda de referencia, a partir de la cual se insertara la columna de código único")
Range(Var1).Select
Selection.EntireColumn.Insert
ActiveCell.Offset.Value = "CÓDIGO ÚNICO"
ActiveCell.Offset(1, 0).Select
Set Column1 = Application.InputBox("Seleccione la primera columna a concatenar", Type:=8)
Var2 = Column1.Address
Set Column2 = Application.InputBox("Seleccione la segunda columna a concatenar", Type:=8)
Var3 = Column2.Address
Set Column3 = Application.InputBox("Seleccione la tercera columna a concatenar", Type:=8)
Var4 = Column3.Address
Set Column4 = Application.InputBox("Seleccione la cuarta columna a concatenar", Type:=8)
Var5 = Column4.Address
ActiveCell.FormulaR1C1 = Var2 & " - " & Var3 & " - " & Var4 & Var5
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Select
Selection.End(xlUp).Select
End Sub
De antemano muchas gracias por la ayuda que me puedan brindar