Code to copy and paste a data set into a different worksheet starting last row

Hi all,

I am trying to copy and paste a data set from a new file I receive weekly (Date_InfoPages) into a master file in a specific sheet (Info Pages) from the last row down. Basically add the new data every week at the bottom.
I know I have put in the last row script yet however I cant seem to get this working.


Dim WbThis As Workbook
Dim WbDest As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet

'## Open both workbooks first:
Set WbThis = Workbooks.Open("H:\Date_InfoPages.xls")
Set WbDest = Workbooks.Open("H:\Dashboard MASTER.xlsx")

Set ws1 = WbThis.Sheets("Date_InfoPages")
Set ws2 = WbDest.Sheets("Info Pages")

With ws1
.Cells.Copy ws2.Cells
WbThis.Close True
WbDest.Close False
End With


Any help would be greatly appreciated.

Perhaps like this?

Please Login or Register  to view this content.

The command

Please Login or Register  to view this content.

will copy everything so if for example you have headings in row 1 you use the offset command to avoid copying this i.e.

Please Login or Register  to view this content.

will not include 1st row when copying.

The "xlPasteAll" may not be the right command if there are formulas in sheet "Date_InfoPages" then "xlPasteValues" may be better.

If you have special formats you wish to copy as well when you use "xlPasteValues" then you need to do this in two steps

Please Login or Register  to view this content.

Finally as WbDest is the updated workbook I assume you wish to save the changes made to this workbook, the WbThis can be closed witout saving.

Alf

Thanks for feedback and rep

If this solves you problem don't forget to mark thread "Solved" as per forum rules.

Alf

Ps

To mark your thread solved do the following:
-Go to the top of the first post
-Select Thread Tools
-Select Mark thread as Solved