Function createDictionaryHerarchicStructure(ByRef arr As Variant, ID As Integer)

    Dim j, i, n  As Long: j = 1: n = 1
    Dim А: Set А = CreateObject("Scripting.Dictionary")
    Dim QTYOffID As Integer
    
    QTYOffID = count(arr, ID)
    
    Dim СловарБ: ReDim СловарБ(1 To QTYOffID)
    
    For i = 2 To UBound(arr, 1)
        If Not A.exists(arr(i, ID)) Then
            
            Set B(n) = CreateObject("Scripting.Dictionary")
            For j = 1 To UBound(arr, 2)
                If Not B(n).exists(arr(1, j)) Then
                    B(n).Add key:=(arr(1, j)), Item:=arr(i, j)
                End If
            Next j
            A.Add key:=arr(i, ID), Item:=B(n)
            n = n + 1
        End If
    Next i
    
    Set createDictionaryHerarchicStructure = dic
End Function

Sub testas()
    Dim orderAggArray: Set orderAggArray = CreateObject("Scripting.Dictionary")
    
    For i = 1 To UBound(data, 1)
        key = data(i, 4)

        If Not orderAggArray.exists(key) Then
        orderAggArray.Add Key:=key , Item:=Array(data(i, 1), _
                                                 data(i, 2), _
                                                 data(i, 3), _
                                                 data(i, 4))

        Else
    
        orderAggArray.Item(key)(0) = orderAggArray.Item(key)(0) + data(i, 1)
        orderAggArray.Item(key)(1) = orderAggArray.Item(key)(1) + data(i, 2)
        orderAggArray.Item(key)(2) = orderAggArray.Item(key)(2) + data(i, 3)
        
         End If
    Next i    
End Sub

orderAggArray.Item(key)(0) = orderAggArray.Item(key)(0) + data(i, 1)

Sub test()
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Plan - Place 1.xlsm"
    Application.Run "Plan - Place 1.xlsm![Close_task].Close_task"
End Sub

For i = 1 to 5 step 1
    Dim dicPlan & i 
    Set dicPlan & i  = CreateObject("Scripting.Dictionary")
next i 

Lapai:=SUMX(Merge;Merge[Material QTY]/SUMX(RELATEDTABLE(Table_scalaSW_SC01SW00);Table_scalaSW_SC01SW00[LapasM2]))

IF (Merge[NewColumn.Component] = "BZ-AMDP*";Lapai;"")

QTY]/SUMX(RELATEDTABLE(Table_scalaSW_SC01SW00);Table_scalaSW_SC01SW00[LapasM2]))

SELECT 
scalaSW.dbo.SC07SW00.SC07007 AS "Užsakymo NR",
scalaSW.dbo.SC07SW00.SC07037 AS "Nurašęs asmuo",
scalaSW.dbo.SC07SW00.SC07002 AS Data,
scalaSW.dbo.OR20SW00.OR20004 AS "Nurašymo kodas", 

SUM(ABS(CASE 
      WHEN scalaSW.dbo.SC07SW00.SC07004 = 0 THEN 1 ELSE scalaSW.dbo.SC07SW00.SC07004
END * scalaSW.dbo.SC07SW00.SC07005)) AS "Suma, EUR"
FROM scalaSW.dbo.SC07SW00 FULL OUTER JOIN scalaSW.dbo.OR20SW00 ON
scalaSW.dbo.SC07SW00.SC07007 = scalaSW.dbo.OR20SW00.OR20001
WHERE scalaSW.dbo.SC07SW00.SC07002 >'2016/01/01' AND scalaSW.dbo.SC07SW00.SC07002 <='2016/01/31' AND scalaSW.dbo.OR20SW00.OR20004 LIKE 'INTR%'
GROUP BY scalaSW.dbo.SC07SW00.SC07007,scalaSW.dbo.SC07SW00.SC07037,scalaSW.dbo.SC07SW00.SC07002,scalaSW.dbo.OR20SW00.OR20004

WHERE scalaSW.dbo.SC07SW00.SC07002 >'2016/01/01' AND scalaSW.dbo.SC07SW00.SC07002 <='2016/01/31'

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\Arnoldas Bankauskas\Desktop\Planning system\Main - PPR.xlsx;Mode=Share Deny Write;Extended Properties="HDR=YES;";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False

={MAX(IF([WC]=[@WC],$N$2:N2))}