Capturar referencias a celdas con imputbox y armar con ellas una formula con concatenar

Buenos días

Estoy tratando de desarrollar un código en Vba para Excel que me permita capturar la dirección o referencia de unas celdas que se encuentran cada una en diferentes columnas (por ejemplo A4; C4; F4; I4) mediante un inputbox, y que posteriormente con dichas referencias realice en otra celda una concatenación del valor de las celdas en dichas referencias separadas por un guión, es decir que elabore una especie de código único...

Hasta el momento he pensado en algo parecido a esto pero no me funciona...

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