You cannot name table cells but you can name the table (in this eg "data")
You should be able to do something based on
Code:
Dim otbl As Table
Set otbl = ActivePresentation.Slides(1).Shapes("data").Table
otbl.Cell(2, 2).Shape.TextFrame.TextRange = "John"