Rearrange Table Data

[Carin]

I have 14 tables merged into one large table which I would like to move into one column.
Table 1 = B1:M5
Table 2 = B6:M10
Table 3 = B11:M15
etc.
I would like a code to move
B1:B5 => A1:A5
C1:C5 => A6:A11
D1:D5 => A12:A17
etc., ending at A60 - then wrap down to
B6:B10 => A61:A65
just continue moving five rows of data from B to M and once that data has been moved, move down and grab the next five rows of data.

 

[VoG]

Try this - it copies rather than moves so you can check if it works. If it does, it can be amended to move.

Sub atest()
Dim i As Integer, j As Integer, k As Integer
k = 1
For i = 1 To 11 Step 5
    For j = 2 To 13
        Cells(i, j).Resize(5).Copy Destination:=Cells(k, 1)
        k = k + 5
    Next j
Next i
End Sub

 

[Carin]

Works like a charm!

 

[VoG]

Excellent! This modification will move rather than copy:

Sub atest()
Dim i As Integer, j As Integer, k As Integer
k = 1
For i = 1 To 11 Step 5
    For j = 2 To 13
        Cells(i, j).Resize(5).Cut Destination:=Cells(k, 1)
        k = k + 5
    Next j
Next i
End Sub

 

[Carin]

Thanks so much...this works for three of my groups...how do I get it to work for all 14 groups?

 

[VoG]

Assuming that the complete range is B1:M70 try

Sub atest()
Dim i As Integer, j As Integer, k As Integer
k = 1
For i = 1 To 66 Step 5
    For j = 2 To 13
        Cells(i, j).Resize(5).Cut Destination:=Cells(k, 1)
        k = k + 5
    Next j
Next i
End Sub