Create a paragraph with content and fields set up this way
Table {StyleRef 1 \s}.{Seq Table \s 1}

This can be used in every instance and doesn't need to be reset after each Heading 1.

In terms of making a macro to insert this in the required place, I would say it is easiest to save that content as a building block and then just insert that BB in the required range. Something along the lines of the following...
ActiveDocument.AttachedTemplate.BuildingBlockTypes (1).Categories("General").BuildingBlocks("bbName") .Insert Where:=Selection.Range, RichText:=True

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia