With appWord.ActiveDocument .Sections.Add Start:=wdSectionNewPage .Tables(1).Range.Copy .Characters.Last.Paste End With