Thanks CJ,
I've made a few changes as I believe you suggested...
1)
I changed this part.
Part1Document.InsertPages 1, Part2Document, 0, Part2Document.GetNumPages(), True
Part1Document.InsertPages 2, Part3Document, 0, Part3Document.GetNumPages(), True
2)
I changed...