Private Const TableTop As Integer = 14750
Private Const TableLeft As Integer = -14750
Private Const SymbolPrefix As String = "TableCell_"

Sub ArrangeTableSymbols()

Dim Sym As Symbol
Dim Col As Integer, Row As Integer
Dim MaxCol As Integer, MaxRow As Integer

Dim RowHeight As Integer, RowLeft As Integer
Dim RowTop As Integer: RowTop = TableTop

For Row = 1 To 100
    RowHeight = 0
    RowLeft = TableLeft
    Set Sym = Nothing
   
    On Error Resume Next
        If Symbols(SymbolPrefix & "1_" & Row) Is Nothing Then
            MaxRow = Row - 1
            Exit For
        End If
    On Error GoTo 0
   
    For Col = 1 To 100
        On Error Resume Next
        Set Sym = Symbols(SymbolPrefix & Col & "_" & Row)
        On Error GoTo 0
       
        If Not Sym Is Nothing Then
            Sym.Top = RowTop
            Sym.Left = RowLeft
            RowLeft = RowLeft + Sym.Width + 10
            If Sym.Height > RowHeight Then RowHeight = Sym.Height
        Else
            If (Col - 1) > MaxCol Then MaxCol = (Col - 1)
            Exit For
        End If
       
        Set Sym = Nothing
    Next Col
   
    RowTop = RowTop - RowHeight - 5
Next Row

Dim MaxWidth As Integer: MaxWidth = 0
Dim ColLeft As Integer: ColLeft = TableLeft
For Col = 1 To MaxCol
    MaxWidth = 0
    For Row = 1 To MaxRow
        On Error Resume Next
        Set Sym = Symbols(SymbolPrefix & Col & "_" & Row)
        On Error GoTo 0
       
        If Not Sym Is Nothing Then
            Sym.Left = ColLeft
            If Sym.Width > MaxWidth Then MaxWidth = Sym.Width
        End If
       
        Set Sym = Nothing
    Next Row
    ColLeft = ColLeft + MaxWidth + 10
Next Col

End Sub