Excel vba transpose one column to multiple column

[mkara]

Hi guys I want to transpose one column into different 13 columns but I don't know how to write the code. Can you help me? It should be like this:
A
B ----> A B C D ....
C
D
.
.
.

 

[JEC]

In O365 you have the funxtion TOROW()
Or just TRANSPOSE()

 

[mkara]

Hi guys I want to transpose one column into different 13 columns but I don't know how to write the code. Can you help me? It should be like this:
A
B ----> A B C D ....
C
D
.
.
.

transpose doesn't give the same result that i want, i want a result something like this basicly, i've looked the similar questions and wrote a code like in the that:
Sub transpose()

xRow = Selection.Rows.Count
xCol = Selection.Column

nextRow = 1

' how many rows to transpose
stepValue = 13

For i = 1 To xRow Step stepValue

Cells(i, xCol).Resize(stepValue).Copy
Cells(1, xCol).Offset(nextRow, 2).PasteSpecial Paste:=xlPasteA

nextRow = nextRow + 1

Next

End Sub

but it says "pastespecial of range class method fails" i am so confused

 

[Fluff]

You can use a formula for that

Fluff.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1	1
2	2		1	2	3	4	5	6	7	8	9	10	11	12	13
3	3		14	15	16	17	18	19	20	21	22	23	24	25	26
4	4		27	28	29	30
5	5
6	6
7	7
8	8
9	9
10	10
11	11
12	12
13	13
14	14
15	15
16	16
17	17
18	18
19	19
20	20
21	21
22	22
23	23
24	24
25	25
26	26
27	27
28	28
29	29
30	30
31
32
33
Data

Cell Formulas
Range	Formula
C2:O4	C2	=WRAPROWS(TOCOL(A1:A100,1),13,"")
Dynamic array formulas.