Copy data from one table to another

[Diving_Dan]

Hi all,

This has been frustrating me all afternoon that I can't either sort this out myself or find the answer I am looking for online. So here goes;

I have a table called "Table1" on a worksheet called "Weigh in Data". Data is put into this table via a userform. I have a second table called "Table4" on a worksheet called "Weigh In Master".

Table1 gets filled and emptied periodically and all of the data within that table needs to be copied into table4 on the sheet "Weigh In Master" which will hold all of the records input.

If anyone can help me with the code to copy the data that will be brilliant.

Thanks in advence

Dan

 

[EFANYoutube]

Hi Dan
This should do it, just change the sheet names and references

Sub CopyTable()

    Sheet1.Range("Table1").Copy Sheet2.Range("A" & Sheet2.Range("A1").End(xlDown).Row + 1)
    Sheet1.Range("Table1").ClearContents

End Sub

 

[Diving_Dan]

Thanks for that, works almost perfectly. How do I amend this to only paste the values, I know I need to have .PasteSpecial Paste:=xlPasteValues in there somewhere but not sure where.

 

[EFANYoutube]

Sub CopyTable()

    Sheet1.Range("Table1").Copy
    Sheet2.Range("A" & Sheet2.Range("A1").End(xlDown).Row + 1).PasteSpecial Paste:=xlPasteValues
    Sheet1.Range("Table1").ClearContents

End Sub

 

[Diving_Dan]

Perfect thank you