When copying shorter table into longer, how to completely replace?

[Jephph]

When I copy the contents of a shorter table into a longer table, the leftovers remain at the bottom.

What I'm trying to achieve:
1. I copy the contents of Table1 into Table2 (for example, 30 records each).
2. I do work on Table2 that makes it shorter by removing duplicates, say I remove 5 records so now Table2 is 25 records long.
3. I copy Table 2 back into Table1.
4. The last five records of the original Table1 remain at the bottom of the table.
5. Ultimate question: How do I make the paste function replace the whole table rather than just the top 25 records?

Code that copies but leaves a residue...

ThisWorkbook.Sheets("Control Center").Range("AllData").Copy
Workbooks("US Support Schedule Form.xlsx").Sheets("Form1").Range("Table1").PasteSpecial xlPasteValues

 

[jsb1921]

before copying table2 back to table1, I will clearcontents of entire table1 then your code

Workbooks("US Support Schedule Form.xlsx").Sheets("Form1").Range("Table1").ClearContents
ThisWorkbook.Sheets("Control Center").Range("AllData").Copy
Workbooks("US Support Schedule Form.xlsx").Sheets("Form1").Range("Table1").PasteSpecial xlPasteValues

 

[Jephph]

Thank you so much! It worked!

Now I have a secondary problem, the system that Table1 (the longer one) in my example above knows there used to be a row there. Now, when it appends a new row, it leaves a gap that my Copy command doesn't recognize. It only copies up to the blank line. Is there a way to include that in my copy?

Thanks again, though! Really helpful!