Hi Gary,

It worked justv like I need but I have about 1500 lines with values to
copy how can I do it ?

Thank You for your help.

Ricardo
Gary''s Student escreveu:
Try:

Sub carpe()
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


--
Gary''s Student


"Carpe Diem" wrote:

Hi all,

I have the folowwing data:

A1 B1 C1 D1 E1
Costs 100 200 125 2002562


What I need is to copy the data oto put like this:

A1 B1
2002562 100
2002562 200
2002562 125

Is there a way to do this using a macro or a function ? I tried to use
the transpose faunction but it didn't work

Can someone help me ?

Thank you

Ricardo galveia