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