I'm trying to use VBA to add a list to a Word document and format it as a bulleted list. It just so happens that the list is generated from the captions of check boxes in my Excel sheet. I want the bullet points to start in the Word document on the next line following "Company will complete the following:"

This code is almost there, the problem I have is that it makes the line "Company will complete the following:" the first bullet point. I need the bullets to start after that line. Any suggestions?

With wrdDoc.Content
        .Find.Forward = True
        .Find.Wrap = wdFindStop
        .Find.Text = "Company will complete the following:"
        .Find.Execute
        .InsertParagraphAfter
        
                
            For i = 1 To 6
                If Excel.Application.Sheets("Commercial Calculator").OLEObjects("Checkbox" & i).Object.Value = True Then
                    .InsertAfter Excel.Application.Sheets("Commercial Calculator").OLEObjects("Checkbox" & i).Object.Caption
                    .InsertParagraphAfter
                    .ListFormat.ApplyBulletDefault (wdWord9ListBehavior)
                End If
            Next i
        
    End With

Thank you in advance