That was it!! An endless thank you sir, you are my hero!

For anyone else that may find this useful - all credit to Macropod:

Sub InsertFormfieldResults()
    Application.ScreenUpdating = False
    Dim lRow As Long, i As Long, j As Long, StrFlNm As String
    With Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
        SendKeys "%n *.doc ~"
        If .Show = True Then
            StrFlNm = .SelectedItems(1)
            Exit Sub
        End If
    End With
    Dim xlWkSht As Worksheet
    Set xlWkSht = ActiveSheet
    lRow = xlWkSht.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Open(Filename:=StrFlNm, AddToRecentFiles:=False)
    With wdDoc
        For i = 1 To .ContentControls.Count
    Select Case .ContentControls(i).Tag
    Case "Mar": xlWkSht.Cells(lRow, 1).Value = .ContentControls(i).Range.Text
    Case "Jun": xlWkSht.Cells(lRow, 2).Value = .ContentControls(i).Range.Text
    Case "Sept": xlWkSht.Cells(lRow, 3).Value = .ContentControls(i).Range.Text
    Case "Dec": xlWkSht.Cells(lRow, 4).Value = .ContentControls(i).Range.Text
        End Select
        .Close SaveChanges:=False
    End With
    Set wdDoc = Nothing: Set wdApp = Nothing
    Application.ScreenUpdating = True
End Sub