A more simple or efficient way of entering header row text & formatting ?

[snb]

Why not using Excel's builtin methods ?

Sub M_snb()
   Cells(1) = "Title 1"
   Cells(1).AutoFill Cells(1).Resize(, 9)
   ListObjects.Add(1, Cells(1).Resize(, 9), , 1).Name = "Table1"
End Sub

Macro in the macromodule of the activesheet.