Try to code below. Note that:
1) The macro will clear the cells in the target worksheet first (in book3)
2) I assume the 2 data lists have the same columns
3) The macro expects the 2 data lists have the same column headings, and it
will only copy the column headings of the 1st data list.


Sub copy_data()
Dim tmp As Single
Dim target_sheet As Object
Set target_sheet = ThisWorkbook.Worksheets("Sheet1")
target_sheet.Cells.Clear
Workbooks("Book1").Worksheets("Sheet1").Range("A1" ).CurrentRegion.Copy _
target_sheet.Range("A1")
tmp = target_sheet.Range("A1").CurrentRegion.Rows.Count
With Workbooks("Book2").Worksheets("Sheet1").Range("A1" ).CurrentRegion
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy _
target_sheet.Range("A1").Range("A1").Offset(tmp, 0)
End With
End Sub


Regards,
Edwin Tam

http://www.vonixx.com


"vbidiot" wrote:


I'm trying to figure out the easiest way to do this.
I want two copy a set of data from two different workbooks and merge it

together into one workbook.

Book1 Data1
Book2 Data2


Merge book1 and book2 into book3.

I've created a button in book3 to pull the data from book1 and book2.
I've tried several different ways but it's a bit messy. I was wondering
if there is a simple code for it.

thanks!


--
vbidiot
------------------------------------------------------------------------
vbidiot's Profile: http://www.excelforum.com/member.php...o&userid=31582
View this thread: http://www.excelforum.com/showthread...hreadid=515530