This example creates a 3x3 table in a new presentation and inserts a four-pointed star into the first cell of the table.
With Presentations.Add
With .Slides.Add(1, ppLayoutBlank)
.Shapes.AddTable(3, 3).Select
.Shapes(1).Table.Cell(1, 1).Shape _
.AutoShapeType = msoShape4pointStar
End With
End With