é uma questão facil, mas é necessário alguns dados
tipo
os dados de origem, em que coluna começa, e em que linha

todas as linhas tem a mesma quantidade de colunas preenchidas ?

para onde vai os numeros em linha,
na mesma ABA ?
em que linha vai começar e em que coluna vai ficar

Olá Edcronos,

A primeira sequencia de números (coluna) começa na A1 e termina na A4.
A segunda seq. começa em B1 e termina em B4 e assim por diante até, digamos CV1 e CV4 (se vc puder me mostra um exemplo pra 100 números que é a coluna CV, adapto pra 1.000 depois).
Não existe espaço em branco entre as linhas nem as colunas.
Essas colunas acima devem ser transpostas para as posições que iniciam em A10 até A409, ou seja, as 100 colunas anteriores contendo 4 números cada, agora viram uma única coluna com 400 números.
Grato.

se eu entendi bem
a leitur é por linha de 1 a 4 e depois pulando a coluna --->>> a1 a2 a3 a4 b1 b2 b3 b4 c1 c2 c3 c4...
e a escrita é por linha até acabar os dados

Sub colin()
li = 1
ci = 1
lf = Cells(Rows.Count, ci).End(xlUp).Row
cf = Cells(lf, Columns.Count).End(xlToLeft).Column
ctc = 1
ctl = 10
For c = ci To cf
For l = li To lf
Cells(ctl, ctc).Value2 = Cells(l, c).Value2
ctl = ctl + 1
Next: Next

Show de bola Edcronos!
A solução foi perfeita.
Vc é bom nisso!
Obrigado.
Abraço.