Código Excel VBA para transponer datos de filas a columnas

Tengo datos en la columna A con 50000 filas de datos. Necesito transponer cada 6 filas de datos a 6 columnas. Por ejemplo, los datos de A1: A6 deben transponerse a B1: G1. Nuevamente, los datos de A7: A14 deben transponerse a B2: G2. Agradezco si alguien puede proporcionar el código VBA para esto.

Los datos que tengo en la columna A se muestran a continuación:

Col A
1
2
3
4
5
6
7
8
9
10
11
12

Los datos de transposición deben ser como se muestra a continuación en la columna B a la columna G:

Columns  B   C   D   E   F   G
         1   2   3   4   5   6
         7   8   9   10  11  12

Respuestas a la pregunta(4)

Su respuesta a la pregunta