Dim i As Integer For i = 1 To ActiveDocument.Tables(1).Columns(4).Cells.Count ActiveDocument.Tables(1).Columns(4).Cells(i).Range.Text = num & "Sample" Next i