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?
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?