concatenar tres columnas

Mira, puedes implementar esta rutina que me la facilito alguien pues yo
tenia un problema similar, me fue mucho mas sencillo hacer esto pues el
volumen de informacion era bastante grande, con este codigo lo agregue
a un boton en la barra de herramientas y con solo un clic me concatena
las columnas siguientes a la celda actual.

Sub concatena()
Dim celda As Range
For Each celda In Selection
celda = celda.Offset(0, 1) & celda.Offset(0, 2) & celda.Offset(0,
3)
Next celda
End Sub

Espero te sirva.

Hola a todos,
a ver si alguien me puede echar una mano.

tengo tres columnas, en una el codigo de entidad bancaria (4 dígitos), en
otra la sucursal (4 dígitos-) y en otra la cuenta (10 dígitos).

1111 2222 3333333333
4444 5555 6666666666
7777 8888 9999999999

etc...

necesito crear una sola columna con la concatenación del contenido de las
tres, es decir :

111122223333333333
444455556666666666
777788889999999999

¿se puede?

gracias por vuestra ayuda!

Alex.