Multiple Intel Control Tables

Question

I need to assemble a control table of many other tables, it is basically a multiple index control that informs the position of these data tables.

Editing:
after several attempts even using SQL directly I think I’ve reached a basic conclusion using a single table makes it difficult to assemble and administer although reading is relatively easy

the table has remained so for now, I still do not know if it is the best configuration does not have a fixed number of tables going according to branch

I am writing first the reading macros of existing sectors a test for open comics

    Sub BD_Lista()

     Dim loo() As Variant, ss() As Variant, c As Long, cc As Long, l As Long
     cc = 1
     ReDim ss(1 To 5, 1 To cc)
     For Each objwb In Workbooks
          For Each objws In objwb.Worksheets
               loo = objws.Range(bdctrl).Value2
               If loo(1, 1) = Tem_Setor Then
                    c = c + 1
                    If c > cc Then cc = cc + 1: ReDim Preserve ss(1 To 5, 1 To cc):
                    ss(1, c) = objws.Name
                    ss(4, c) = objwb.Path & "\"
                    ss(5, c) = objwb.Name
                    For l = 2 To 3
                         ss(l, c) = loo(l, 1)
                    Next
               End If
          Next objws
     Next objwb
     l = Sheets(wconfig).Cells(Rows.Count, 2).End(xlUp).Row
     If l < 4 Then l = 4
     Sheets(wconfig).Range("b4:G" & l).ClearContents
     Sheets(wconfig).Range("b4:F" & 3 + c).Value2 = Array_TransposTo(ss)
End Sub

now re-attack the old one that mounts the sectors
of course for this type of situation the ideal would be OOP, but my ability is low for this