Copy values in columns to rows
 

Hi,

I have this macro :

Try:

Sub col_row()
v = Array(Cells(1, 2).Value, Cells(1, 3).Value, Cells(1, 4).Value,
Cells(1,
5).Value)
Range("A1:E1").Clear
Range("A1:A3").Value = v(3)
Range("B1").Value = v(0)
Range("B2").Value = v(1)
Range("B3").Value = v(2)
End Sub


this macro allows to copy the following data :
A1 B1 C1 D1 E1
Costs 100 200 125 2002562

to:
A1 B1
2002562 100
2002562 200
2002562 125

But right now I have:

A1 B1 C1 D1 E1
Costs 100 200 125 2002562
Cash 10 205 135 2002563
Costs 100 200 125 2002564
Cash 10 205 135 2002565

How can I do the same ?

A1 B1
2002562 100
2002562 200
2002562 125
2002563 10
2002563 205
2002563 135
2002564 100
2002564 200
2002564 125
2002565 10
2002565 205
2002565 135

Can someone give a help?

Thank you