Either way, you don't need all this copy/paste stuff; simply save the document you opened with a new name. Whether you do that before modifying it, or after (or even before
and after), is immaterial. For example:
Code:
Sub Demo()
Dim strDoc As String
With ActiveDocument
'get the source document's name
Set strDoc = .FullName
'modify the document
'save the document via the SaveAs dialogue
.Application.Dialogs(wdDialogFileSaveAs).Show
'modify the document
'close & save any changes to the document
.Close True
End With
'reopen the source document
Documents.Open (strDoc)
End Sub