Понял. Сначала не все значения поправил:
Sub Tab1_12()
Dim s1 As Shape
Set s1 = ActiveLayer.CreateCustomShape("Table", 1, 10, 5, 3, 15, 20)
For i = 1 To 15
For j = 1 To 20
s1.Custom.Cell(i, j).TextShape.Text.Story = (j - 1) * 15 + i
Next j
Next i
End Sub
Сейчас с размерами...