Sub Example()
Dim AppWord As Object
Dim oDoc As Object
Dim oTbl As Object
Dim oRng As Object
Dim lngIndex As Long, lngObjectives As Long
  On Error Resume Next
  Set AppWord = GetObject(, "Word.Application")
  If Err Then
      Set AppWord = CreateObject("Word.Application")
  End If
  On Error GoTo 0
  Set oDoc = AppWord.Documents.Add("D:\Demo Template.dotm")
  'Write the first objective.
  Set oTbl = oDoc.Tables(8)
  With oTbl
    .Cell(2, 2).Range.Text = "Some text"
    .Cell(4, 1).Range.Text = "Some other text"
    'etc.
  End With
  'Are there other objectives? Yes in this demo 5
  lngObjectives = 5 'Replace with whatever you have now that determines the number of objectives required.
  For lngIndex = 2 To lngObjectives
    Set oRng = oTbl.Range
    oRng.Collapse wdCollapseEnd
    oRng.MoveEnd wdCharacter, 1
    oRng.InsertBefore vbCr
    oRng.MoveStart wdCharacter, 1
    ActiveDocument.AttachedTemplate.BuildingBlockEntries("Objective Table").Insert Where:=oRng
    'Write data to new objective as required.
    Set oTbl = oRng.Tables(1)
    With oTbl
      .Cell(2, 2).Range.Text = "Some text"
      .Cell(4, 1).Range.Text = "Some other text"
      'etc.
    End With
  Next lngIndex
End Sub

Sub Example()
Dim AppWord As Object
Dim WordDoc As Object
Dim oTable As Object
Dim oRng As Object
Dim oCell As Object
Dim ExcSheet As Excel.Worksheet
Dim i As Integer

    On Error Resume Next
    Set AppWord = GetObject(, "Word.Application")
    If Err Then
        Set AppWord = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    AppWord.Visible = True
    'Set WordDoc = AppWord.Documents.Add("C:\Path\DocName.docx")
    Set WordDoc = AppWord.activedocument
    'Set a range to the table before the place to insert a new table
    Set oRng = WordDoc.Tables(7).Range
    'collapse the range to its end
    oRng.collapse 0
    'Add an empty paragraph to the range
    oRng.Text = vbCr
    'Collapse the range to the end of the empty paragraph
    oRng.collapse 0
    'and add a table at the range
    Set oTable = WordDoc.Tables.Add(Range:=oRng, NumRows:=10, NumColumns:=2)
    'Now fill the table
    Set oCell = oTable.Cell(1, 1).Range        'Row,Column
    oCell.End = oCell.End - 1
    oCell.Text = "Objective 1"
    Set oCell = oTable.Cell(1, 2).Range
    oCell.End = oCell.End - 1
    oCell.Text = ""
Set oCell = oTable.Cell(2, 1).Range        'Row,Column
    oCell.End = oCell.End - 1
    oCell.Text = "Heading:"
    Set oCell = oTable.Cell(2, 2).Range
    oCell.End = oCell.End - 1
    oCell.Text = Excel Textbox.Value
    'Set oRng to oTable.Rang
    'and repeat the above section for each new table depending on the coindition that determines whether a table is required.
End Sub