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

 

[JoeMo]

Sub NextColToNextRow()
Dim nxRw As Long, R As Range, i As Long
Set R = Range("A1").CurrentRegion
Application.ScreenUpdating = False
For i = 2 To R.Columns.Count
       nxRw = Range("A" & Rows.Count).End(xlUp).Row + 1
       Range("A" & nxRw).Resize(R.Columns(i).Rows.Count, 1).Value = R.Columns(i).Value
Next i
Range(R.Columns(2), R.Columns(R.Columns.Count)).ClearContents
Application.ScreenUpdating = True
End Sub

 

[Michael M]

MAybe

Sub MM1()
Dim lr As Long, lc As Integer, lr2 As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
    For c = 2 To lc
        lr2 = Cells(Rows.Count, c).End(xlUp).Row
        Range(Cells(1, c), Cells(lr2, c)).Copy Cells(lr + 1, 1)
        lr = Cells(Rows.Count, "A").End(xlUp).Row
    Next c
Range(Cells(1, 2), Cells(1, lc)).EntireColumn.Delete
End Sub

 

[corescript]

hi JoeMo, Michael M
its work thank you

 

[corescript]

dear all
I've new case. how to solve this using formula or macro?

1
1
1
1
1
1
2
2
2
2
2
2
3
3
3
3
3
3
4
4
4
4
4
4

and so on

 

[Michael M]

What is the problem.....all we see is a list of numbers...!
What do you want to do with them ???

 

[corescript]

What is the problem.....all we see is a list of numbers...!
What do you want to do with them ???

I want to autofill line with the same number in a few lines, up one level in several subsequent row and so on

thanks

 

[Michael M]

Are they always in blocks of 6 numbers ???

 

[corescript]

yes u are right Michael M

 

[Michael M]

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