dividir contenido en columna intermedia

[jhon6666]

como puedo dividir el contenido en columnas intermedias

 

[Cacho R]

.
Por ejemplo así:

Sub desplazo_Columnas()
Dim lastRow&, qCols%, iCol%
Application.ScreenUpdating = False
lastRow = [a1].CurrentRegion.Rows.Count: qCols = [a1].End(xlToRight).Column
For iCol...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jhon6666]

muchas gracias maestro cacho R