Macro para tabular datos en columnas consecutivas

Yo lo tengo de la siguiente manera

Mi macro seleccionas las columna que que le indico y me la pega en una hoja nueva con el nombre que le doy cuando me lo pide y me pega desde la columna "A" hasta pegar todas la que elegí

C:C Asi selecionas la columna entera

En un modulo pega la macros y en la página inserta un botón o forma

sub sel_col ( )

Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False

Sheets("sheet1").Select
Range("c:c,d:d,e:e,i:i,j:j,k:k,u:u,y:y,t:t,s:s,cq:cq,ah:ah").Select
Selection.Copy

Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select

Dim nombre
nombre = InputBox("Que Nombre le quiere dar a la hoja activa")

ActiveSheet.Name = nombre

ActiveSheet.Paste

ActiveSheet.Previous.Select

Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic
 Application.EnableEvents = True
 ActiveSheet.DisplayPageBreaks = True
 Application.CutCopyMode = False
 ActiveSheet.Next.Select

end sub

Si te silve no olvides valorar

Corrigo una información y adjunto imágenes para mejor explicación:  los datos de interés están en una celda separados por espacios. Por ejemplo, la celda A11 contiene muchos datos que a la vista parecen estar en distintas columnas pero todos estan en la A11 separados sólo por espacios. Lo mismo ocurre en la celda A12. El patrón se repite hacia abajo. Estos datos hay que tabularlos en una nueva tabla que toma valores contenidos en A11 y A12 y dejarlos en una fila. Luego se repite la tarea para el par de filas A14 y A15, y asi sucesivamente....la imagen 1 muestra el archivo fuente y la imagen 2 la tabla final que es el resultado deseado. Espero se entienda mejor.