[Excel/Word] Specific cells to Word Doc with formatting

[rfechner]

The problem is I am not able ( don't know how ) to increment rows within the For Each Cell Loop:

                    For Each cell In Range(LP1, LP1_1) 'If there are multiple tests for the LP #, then loop through them
                    TestNum = (Cells(I want to increment this each loop, 5).Value
                    Next cell