TBH, I havn't tried much vba with Word, but what happens if you try adding the heading text before inserting the table, so the line
doc.Range(1, 0).Text = "My Company Name"
before
doc.Tables.Add Range:=doc.Range, numrows:=1, numcolumns:=5
BTW what is WordSetup, is this a function
David