Macro copying rows to coulm based on specific criteria

Hi all
I sincerely thank all the members of forum.
I am really in a need of a help for copying row to colum based on Acoulm I have done example for the first few
This arrangement is required for writing letters through mail merge.
Your immediate help is sincerely solicited
Illustration is attached

Thanks & Regards
N.Srinivasan

Hi N.Srinivasan,
try it

Sub ertert()
Dim x, i&, j&, k&, s$
x = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim y(1 To UBound(x), 1 To 5)

For i = 2 To UBound(x)
    If x(i, 1) = s Then
        j = j + 2: If j > UBound(y, 2) Then ReDim Preserve y(1 To UBound(y), 1 To j)
        y(k, j - 1) = x(i, 2)
        y(k, j) = x(i, 3)
    Else
        k = k + 1: j = 3
        y(k, 1) = x(i, 1)
        y(k, 2) = x(i, 2)
        y(k, 3) = x(i, 3)
        s = x(i, 1)
    End If
Next i

Range("D2").Resize(k, UBound(y, 2)).Value = y()
End Sub

Thanks a lot
It works great
many thanks for reliving from me doing from monotonour work

Hi
Can you Please help
I need to copy row to coulm Exaample file is attached.
Previoous verison had 3 colums to be distributed now One more colum is added pls help

try this

Sub ertert()
Dim x, i&, j&, k&, s$
x = Range("A1:D" & Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim y(1 To UBound(x), 1 To 5)

For i = 2 To UBound(x)
    If x(i, 1) = s Then
        j = j + 2: If j > UBound(y, 2) Then ReDim Preserve y(1 To UBound(y), 1 To j)
        y(k, j - 1) = x(i, 3) 'DATE
        y(k, j) = x(i, 4) 'AMOUNT
    Else
        k = k + 1: j = 4
        y(k, 1) = x(i, 1)
        y(k, 2) = x(i, 2)
        y(k, 3) = x(i, 3)
        y(k, 4) = x(i, 4)
        s = x(i, 1)
    End If
Next i

Range("F2").Resize(k, UBound(y, 2)).Value = y()
End Sub

Hi
Hi
I need one more help.
Row colum is to be arranged based on the colum A and B to gether
Presently it is following colum a
If there are more than on flat in tower 4 it combines in the same row.
can you please extend this coding.
thanks

Hi Nilem,
I have missed to thank you very much your coding on 25/04/2016. It works fine and superb.

Now can you please help me to give coding for the above post.
Presently it looks colum A for every change in colum A it arranges row to colum wise
We have above 10 towers and each tower shall have same flat no.101 102 etc.
Coding shall look for change in colum A and Colum ie tower no flat no and then arranges to row colum
can you pls help.
Thanks