Sub test2()
With ActiveDocument
.Range(.Content.End - 1, .Content.End - 1).InsertBreak Type:=wdPageBreak
.Tables(1).Range.Copy
.Range(.Content.End - 1, .Content.End - 1).PasteSpecial
.Tables(2).Range.Copy
.Range(.Content.End - 1, .Content.End - 1).PasteSpecial
End With
End Sub