With sld_Temp.Shapes("frank").Table
.Cell(1, 1).Shape.TextFrame.TextRange.Text = "Hello"
.Cell(1, 2).Shape.TextFrame.TextRange.Text = "world"
.Cell(1, 3).Shape.TextFrame.TextRange.Text = "And"
.Cell(2, 1).Shape.TextFrame.TextRange.Text = "here is"
.Cell(2, 2).Shape.TextFrame.TextRange.Text = "more"
.Cell(2, 3).Shape.TextFrame.TextRange.Text = "data"
End With