急！求助高手！怎样将多行多格有规律区域快速排列成竖向区域

搜过网上很多横转列的问答，都不是我想要的，由于数据量大急用，求大神现身助小弟一臂之力，感激不尽....

大概数据是这样的
A B C D E F G H I ..............AA AB AC
1 12 25 28 14 67 34 16 74 52 ............36 75 38
2 12 29 37 14 37 78 16 45 25 ............36 25 78
3 12 25 25 14 75 29 16 127 25 ...........36 74 45
转换后是这样的
A B C
1 12 25 28
2 12 29 37
3 12 25 25
4 14 67 34
5 14 37 78
6 14 75 29
7 16 74 52
8 16 45 25
9 16 127 25
.............
.... 36 75 38
.........36 25 78
.... 36 74 45

@雪儿浪漫想@zzmxy@wangxf92099@凝聚每分爱@鬍鬚客@RuiWangChina@青水蛙鸣@marchwen01@zipal不得已@各位大咖，请求发挥高超智慧帮助小弟感激不尽

模拟了一段数据，实在没什么意思，假设A1:ABn有数据，除去第一列，正好27列数据。
代码如下：
Sub mytest()
Sheet6.Activate
Dim arr, brr, i&,m&, n&, r&
r = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("B1:AB" & r)
ReDim brr(1 To 9 * UBound(arr), 1 To 4)
For i = 1 To 9 * UBound(arr)
m = (i - 1) Mod 3 + 1
n = (i - 1) \ 3 + 1
brr(i, 1) = i
brr(i, 2) = arr(m, 3 * n - 2)
brr(i, 3) = arr(m, 3 * n - 1)
brr(i, 4) = arr(m, 3 * n)
Next
Sheet7.Activate
[a1].Resize(UBound(brr), 4) = brr
End Sub
我这里sheet6是数据，sheet7放结果，实际请根据需求修改。

@秦時明月漢時圓试了一下，虽然看不懂，但是放进去没啥效果啊，运行后说有错误，
，要调试是哪里出了问题吗？能否详细解释一下，还有数据有很多，不仅仅是27列，太多了，几百列..

不要沉了啊，有没有高手求助啊，解决一下问题啊 ，跪求orz

真的很需要...难道就没有高手救一下小弟？真的是绞尽脑汁啊，

=INDEX($B:$J,MOD(ROW(A6),6)+INT(ROW(A12)/12)*7-3,INT(MOD(ROW(A12),12)/6)*5+COLUMN(A1))

=INDEX($B:$J,INT(ROW(A8)/8)*4-3+MOD(ROW(A4),4)+3,INT(MOD(ROW(A8),8)/4)*4+COLUMN(A1)) 用这个，但是在填充公式的时候先选择填充三行，在选择四行向下填充