Concatenar columnas segudas

Mil gracias AnSalVal, excelente tu aporte.

Prueba con este:

' debes seleccionar solamente las celdas donde vas a escribir.
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

Saludos desde Tenerife (España).
*******************************
"Alejandro Garcia" escribió en el mensaje
news:

Se me escapaba algo, el codigo que me funciono trabaja bien pero solo
para una sola celda, pero no si tengo un ranto de celdas seleccionadas.
¿Se podrá aplicar un codigo que me funcione seleccionado un rango de
celdas?. Es el mismo principio, concatenar las 3 columnas siguientes a
la columna(celdas) seleccionadas.

Gracias.