Eliminar columnas

[Alejandro Garcia]

Tengo el siguiente macro que alguien me lo dio en algun momento que
estaba necesitando:

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

Me gustaría, si es posible eliminar las columnas que concatene, es
decir, aplico la rutina en la columna A y me concatena las columnas B,
C y D. Luego, deseo eliminar estas ultimas columnas.

Gracias.

 

[Alejandro Garcia]

Sorry, but this post isn't for this forum.