adding rows into word document

Many thanks, this works.
I found another way to add text into these word cells, maybe it is useful to share it with you as well.

Sub test()
                    
            Set objword = CreateObject("word.application")
            Set docword = objword.documents.Add
            With objword
            .Visible = True
            End With
            For i = 1 To 5
              docword.Tables(1).Select
              objword.Selection.insertrowsabove 1
              docword.Range.Tables(1).Cell(1, 1).Range = i
            Next
End Sub

thanks again