multiple index control tables [closed]

I need to mount a control table of as many tables, it's basically a multiple index control that informs the position of these tables of data.

Edition:
after several attempts until using SQL directly I think I came to a basic conclusion using a single table makes assembly and administration difficult although reading is relatively easier

The table stayed like this for now, I still do not know if it is the best configuration doesnothaveafixednumberoftablesgoesaccordingtothebranch

I'mwritingthereadmacrosfortheexistingsectorsfirst  atestfortheopenbd

SubBD_Lista()Dimloo()AsVariant,ss()AsVariant,cAsLong,ccAsLong,lAsLongcc=1ReDimss(1To5,1Tocc)ForEachobjwbInWorkbooksForEachobjwsInobjwb.Worksheetsloo=objws.Range(bdctrl).Value2Ifloo(1,1)=Tem_SetorThenc=c+1Ifc>ccThencc=cc+1:ReDimPreservess(1To5,1Tocc):ss(1,c)=objws.Namess(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-attaching the old one that assembles the sectors
Of course for this type of situation the ideal would be OOP, but my capacity is not enough for this.