You should create the basic layout as a Word template so that when you create the initial document, it already contains the standard content and formatting.

Set objDoc = .Documents.Add(sPathToTemplate)

If your template already contained all the elements your code creates then the rest of the code you showed is actually not needed. You would then use code to bring in the Excel content itself.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia