copying data from one worksheet to other

[luisve]

i am usig this code:

Workbooks.Open Filename:="C:\Documents and Settings\Luis\My Documents\Acs wand\Book2.xls"

yBegin = 0
If WorksheetFunction.CountA(Workbooks("book2.xls").Sheets("sheet1").Range("a:a")) > 0 Then yBegin = 1
Workbooks("book1.xls").Sheets("sheet1").Range("A2:F" & Range("A2").End(xlDown).Row).copy _
Workbooks("book2.xls").Sheets("sheet1").Range("A65536").End(xlUp).Offset(yBegin, 0)
yBegin = 0
to open a workbook and transfer all the data to a second workbook but i am getting a error that sayas cannot paste because the area of paste is diferent of the source, can help me?

 

[Chitosunday]

Your source rows is greater than your destination rows. Maybe
your distination file is already full. Why don't you create another sheet or go to another sheet . Use this statement to
determine if the data is full
on error resume next
Put your copy and paste code code here
if err.number = 1004 then
err.clear
sheets("sheet2").select
put your copy and paste code here
end if