So I have almost gotten through to the end, however, whenever icount >2 the table pastes next to the previous table it pasted when i need it within its own table below.
Code:
Dim i As Integer
Dim iCount As Integer
Dim Rng As Range
iCount = InputBox("How many duplicates?", , "1")
Set Rng = ActiveDocument.Bookmarks("Generator").Range
If iCount = 0 Then
Rng.Select
Rng.Delete
Else
For i = iCount To 2 Step -1
Set Rng = ActiveDocument.Bookmarks("Generator").Range
Rng.Select
Rng.Collapse wdCollapseEnd
Rng.Select
Rng.Paste
'insert paragraph here
Next i
End If
is there a way to do that?