I tried the line of code you suggested.
Selection.Collapse wdCollapseEnd

Gave me an error that the "Object doesn't support this property o
method"

Then tried both
wrdApp.Selection.Collapse wdCollapseEnd
Word.selection.Collapse wdCollapseEnd
and still just overwriting the last paste when I go back through

Here's the code I'm trying to get to work.

Any help will be appreciated with beer if I can :)

With wrdDoc
'Write Data
Sheets("Sheet2").Select

For iWrd = 0 To Finali - 1
iFirstRow = iWrd * 28
iLastRow = (iWrd * 28) + 27
If iFirstRow = 0 Then
iFirstRow = 1
End If
Range("A" & iFirstRow & ":B" & iLastRow).Select
Selection.Copy

.Content.PasteExcelTable False, False, False
.Content.InsertBreak

Next iWr

--
Message posted from http://www.ExcelForum.com