see if this will work for you

Option Explicit
Dim lastc As Long
Sub copyrow()
lastc = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, 1).Resize(1, lastc).Copy
Worksheets("sheet2").Range("a1").Activate
ActiveSheet.Paste
End Sub


Gary


--


Gary


"braddy" wrote in
message ...

Hi please,
I would like to have some help:
I woul like to transfer data from sheet1 to sheet2.

For example , if I have in sheet1

A1=12
B1=15
C1=5
D1=8
E1=9

And I want in sheet2:

A1=12
B1=15
C1=5
D1=8
E1=9

Please give me the formula. I did some research, but I did not
understand what they were talking about!!

Please Give me also the formula for A1, A2, A3 A4 (for an array) from
sheet1 to sheet2
Please Be precise..

Thank you

Brad


--
braddy
------------------------------------------------------------------------
braddy's Profile:
http://www.excelforum.com/member.php...o&userid=19827
View this thread: http://www.excelforum.com/showthread...hreadid=469068