Function createDictionaryHerarchicStructure(ByRef arr As Variant, ID As Integer)
    Dim j, i  As Long: j = 1
    Dim Dic2 As Object
    Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
    For i = 2 To UBound(arr, 1)
        If Not Dic.exists(arr(i, ID)) Then
            Set Dic2 = createDictionaryFromArrayColumn(arr, i, 2)
            Dic.Add key:=arr(i, ID), Item:=Dic2
        End If
    Next i
    Set createDictionaryHerarchicStructure = Dic
End Function

Public Function createDictionaryFromArrayColumn(ByRef data As Variant, ByRef key As Long, ByRef position As Long)
    Dim mykey As String
    Dim i As Integer
    Dim Dic: Set Dic = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(data, position)
        mykey = data(1, i)
        Dic.Add key:=mykey, Item:=data(key, i)
    Next i
    Set createDictionaryFromArrayColumn = Dic
End Function

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

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

Workbooks.Open Filename:=ThisWorkbook.Path & "\Plan - Place 1.xlsm"

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

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'