Worksheets("DataAll").Range("A65536").End(xlUp).of fset(1,0).paste

"saziz" wrote in
message ...

Yes I only have average in A1 which could be down in 200th. row
somewhere.
Here is what I am working on:

For Each mysht In ActiveWorkbook.Worksheets
If mysht.Name = "Sheet1" Then
mysht.Range(mysht.Range("A:e").Find("Ave")(200), _
mysht.Range("A:e").End(xlUp)).Resize(, 5).Copy _
Worksheets("DataAll").Range("A:E").End(xlUp)(1)

I don't know how to make the code to DataAll Sheet --last row --
paste.
Hope someone can help me.
Thanks
Syed


--
saziz
------------------------------------------------------------------------
saziz's Profile:
http://www.excelforum.com/member.php...fo&userid=6350
View this thread: http://www.excelforum.com/showthread...hreadid=493614