Insert table into header

Can someone help me with some code to insert a 1 row and 3 column table into a header?


Thanks

Code:

---

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  ActiveDocument.Tables.Add ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range, 1, 3
End Sub

---