Your plethora of posts, especially those suggesting closure, don't contribute to a solution. Indeed, unless one reads the thread, they give the impression you might already be receiving help.

Given that your sample has groups of five formfields, this specification:
but with every sixth field starting a new row in excel
doesn't make any sense at all, especially in light of:
You can see in the spreadsheet how I would prefer it if possible, five columns.
That said, assuming you're working with groups of five formfields, try something along the lines of:
[VBA]Sub InsertFormfieldResults()
Application.ScreenUpdating = False
Dim lRow As Long, i As Long, j As Long
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:="Path & Filename", AddToRecentFiles:=False)
With wdDoc
For i = 1 To .FormFields.Count
xlWkSht.Cells(lRow + Int(i / 5), ((i - 1) Mod 5) + 1).Value = .FormFields(i).Result
Next
.Close SaveChanges:=False
End With
wdApp.Quit
Set wdApp = Nothing
Application.ScreenUpdating = True
End Sub[/VBA]