Boa noite!

Tente esse código do MVP Jerry Beaucaire
Fonte: https://sites.google.com/a/madrocketscientist.com/jerrybeaucaires-excelassistant/parse-functions/column-to-columns

Sub ColumnToColumns()
'Jerry Beaucaire, 5/16/2012
'Take a column of values and split into multiple columns by X cells
Dim X As Long, RNG As Range, Grp As Long
X = Application.InputBox("Quantas células você deseja agrupar?", "Agrupamento", 3, Type:=1)
If X = 0 Then Exit Sub

Set RNG = Range("A1", Range("A" & Rows.Count).End(xlUp))

For Grp = 1 To RNG.Rows.Count Step X
    RNG.Cells(Grp).Resize(X).Copy Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
Next Grp

End Sub

Att

Olá Alexandre

Eu achei um código que faz quase o que eu preciso só precisa de um ajuste, como eu não conheço muito de VBA talvez você possa me ajudar a deixar o código 100%.

Anexei uma planilha com o exemplo e explicando o que eu preciso, se você puder, por favor, dê uma olhada e me quem sabe me ajude.

Obrigado
Abs

Boa tarde Chimirra,

De uma olhada na alteração que coloquei no seu código.

Colocar letras na coluna I é mais limitado do que colocado números. Se você colocar um valor maior que 26 na célula E3 será necessário alterar o código.

Teste e de retorno.

att,

Boa noite, Bruno!

Ficou ótimo!!

Como podemos fazer para o código incluir uma letra a mais ao final das 26 letras? AA, AB ...

Obrigado pelo apoio.
Abs
Chimirra

Boa noite Chimirra,

No caso montei o código para ir pegando pelo 'endereço' das colunas, tem que colocar um IF e Elseif(dê uma olhada no arquivo em anexo).
Coloquei para pegar até a ZZ (702 colunas).

att,

Bruno,

Ficou excelente!!!

Muito obrigado pelo apoio!!!

Abs