Book1.xlsx has information on sheet 1 that i need to extract into another sheet in Book2.xlsx. Book1.xlsx has data from column A to Column Z but i am only interested in data between A-->D. Moreover, Book1.xlsx will be updated every now and then but it is highly unlikely for data to ever pass row 1000. I want to extract data from Book1.xlsx between columns A-->D making sure that It is the most recent data available according to any updates that have been made and copy it into another sheet in Book2.xlsx.

This is what i have so far:

Sub CopyDataBook1toBook2()

Dim lastcell As Integer

lastcell = Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("D1000").End(xlUp).Select

Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A2:lastcell").Select
'selecting data starts second row because 1st row is floating heading
selection.copy

End Sub

I did not finish it because i was already getting errors. Thanks for any and all help.