Need help transposing 3 rows of patterned data into seperate rows and coloumns

Hi All,

Sorry about having needing assistance again due to my lack in macro knowledge. I am still currently learning.

I have 2000 data which resembles the following :

Note: E.g. A1 - BLK 1 / A2 - #01-01 / A3 - 11151 and so on

BLK 1 BLK 2 BLK 3 BLK 4 BLK 5 BLK 6
#01-01 #02-02 #03-03 #04-04 #05-05 #06-06
11151 11152 11153 11154 11155 11156

I would like it to be formulated into such manner:

A1 - BLK 1 / B1 - BLK 2
A2 - #01-01 / B2 - #02-02

A
1 BLK 1 BLK 2
2 #01-01 #02-02
3 11151 11152
4
5 BLK 3 BLK 4
6 #03-03 #04-04
7 11153 11154
8
9 BLK 5 BLK 6
10 #05-05 #06-06
11 11155 11156

Can anyone help me improvise with this macro code assisted by Special-K to me last night which i highly appreciated the help.

Sub k1()
Dim i, j, k, NumOfRows, NumOfCols As Long
NumOfCols = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
k = 0
For i = 1 To NumOfCols
NumOfRows = Sheets("Sheet1").Cells(Rows.Count, i).End(xlUp).Row
For j = 1 To NumOfRows
k = k + 1
Sheets("Sheet2").Cells(k, 1) = Sheets("Sheet1").Cells(j, i)
Next j
k = k + 1
Next i

End Sub


Thank you!