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.