Можно и инструмент "Таблица" использовать, а не "сетка".
Да и автоматизировать в чем-то попроще будет
Sub Tab1_12()
Dim s1 As Shape
Set s1 = ActiveLayer.CreateCustomShape("Table", 1, 10, 5, 3, 3, 4)
For i = 1 To 3
For j = 1 To 4
s1.Custom.Cell(i, j).TextShape.Text.Story = (j - 1)...