Move next column to next row using macro?

[corescript]

Dear all
i've data like this:

A            B         C                D 
1 John       Willy      Diana            Chan Yu
2 male       male      Female            Male
3 married    single    Single            Single
4 Ohio       Texas     Las Vegas         New York
5 yes        NA        Yes               No

and i want to move next column to next row such as below

   A         B          C         D
1 John    
2 male    
3 married 
4 Ohio    
5 yes     
6 Willy 
7 male  
8 single
9 Texas 
10 NA
11 Diana        
12 Female   
13 Singe    
14 Las Vegas
15 Yes
16 Chan Yu      
17 Male
18 Single
19 New York
20 No

thank you

 

[corescript]

try this

Sub MM1()
Dim x As Long, lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
For x = 1 To lr Step 6
   Range("A" & x).Resize(6, 1).Copy
   Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Transpose:=True
Next
Columns("A:A").EntireColumn.Delete
End Sub

helo MM what i mean is fill rows automatically with number

      A
1     1
2     1
3     1
4     1
5     1
6     1
7     2
8     2
9     2
10    2
11    2
12    2
13    3
14    3
15    3
16    3
17    3
18    3
19    4
20    4
21    4
22    4
23    4
24    4
25
26

and so on

 

[Michael M]

So that it looks like this ??
If not, you need to provide a before and after example

Excel 2007
	A	B	C	D	E	F
2	1	1	1	1	1	1
3	2	2	2	2	2	2
4	3	3	3	3	3	3
5	4	4	4	4	4	4
Sheet1

 

[corescript]

before

	A
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

<tbody>
</tbody>

after

	A
1	1
2	1
3	1
4	1
5	1
6	1
7	2
8	2
9	2
10	2
11	2
12	2
13	3
14	3
15	3
16	3
17	3
18	3
19	4
20	4
21	4
22	4
23	4
24	4
25	5
26	5
27	5
28	5
29	5
30	5
31	6

<tbody>
</tbody>

and so on

Thank you
Best Regards

 

[Michael M]

Sub MM1()
Dim x As Long, n As Integer
n = 1
For x = 1 To 90 Step 6 'change the 90 to the number of rows you need
   Range("A" & x).Resize(6, 1).Value = n
   n = n + 1
Next
End Sub

 

[corescript]

Sub MM1()
Dim x As Long, n As Integer
n = 1
For x = 1 To 90 Step 6 'change the 90 to the number of rows you need
   Range("A" & x).Resize(6, 1).Value = n
   n = n + 1
Next
End Sub

SMART that the word I want to say to you Michael M

thank you

Best Regards

 

[Michael M]

thank you...glad it worked..