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)
Else
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
Next
.Close SaveChanges:=False
End With
wdApp.Quit
Set wdDoc = Nothing: Set wdApp = Nothing
Application.ScreenUpdating = True
End Sub