Sub text() With Selection.Tables(1).Rows(1) .Cells(1).Range.text = "Sample text in first cell." .Cells(2).Range.text = "Sample text in second cell." .Cells(3).Range.text = "Sample text in third cell." End With End Sub