Hello,

Looking at the template, each table seems to have the same number of rows. If you can rely on the data to always contain the same number of rows, then this code will work fine:

Sub MoveToSummary()

Sheet1.Range("1:25").Cut Sheet2.Range("A1")
Sheet1.Range("2:25").Delete

End Sub

Otherwise, the following code is a bit more flexible:

Sub MoveToSummary()
Dim rTable As Range

Set rTable = Sheet1.Range("C1").End(xlDown).CurrentRegion
rTable.EntireRow.Cut Sheet2.Range("A2")
rTable.EntireRow.Delete

End Sub

Hopefully one of these methods will work out for you.

Ben