Trabajar con listas de palabras

[ID3M]

Buenas tardes a todos, lo primero es disculparme por si mi duda no debería de ir en este grupo.

Tengo una duda si se puede realizar o no (sin VBA o con), intentaré explicarme lo mejor posible.

Digamos que trabajo con un fichero de txt de unas 2000 palabras, mi objetivo es importarlo y que salga columnas de 50 filas.
Se restringir la tabla en la fila 50 pero se corta ahí.
Mi duda es puedo programar (con VBA o sin) de alguna manera para que una vez llegue a la fila 50 salte de columna y así sucesivamente y siga añadiendo las palabras?

Un saludo a todos, gracias.

[ID3M]

Buenas estoy usando el procedimiento Range

Sub columna50()
'
' columna50 Macro
' dividir una columna en varias de 50 filas
'

'
    Range("A51:A100").Select
    Selection.Cut
    Range("B1").Select
    ActiveSheet.Paste
    
    Range("A101:A150").Select
    Selection.Cut
    Range("C1").Select
    ActiveSheet.Paste
   ….

End Sub

así sucesivamente sabéis de otra opción para no tener que reescribir este tramo 50 o  60 veces?

gracias. 

[Antoni]

Nadie se va a molestar en crear un entorno para poder probar el resultado. Sube tu archivo,

[ID3M]

homo2.xlsx este es el listado x ejemplo. estoy trabajando con otro con muchos más valores.

homo2.xlsm este es el ejemplo de como quiero que quede. 

la cuestión es si hay otra manera de realizarlo sin tener que escribir el Range… tantas veces