Остаток на кон_шт: = var maxDate = MAX('ТаблКалендарь'[Дата])
var DateInPeriod = DATESBETWEEN('ТаблКалендарь'[Дата];DATE(2023;1;1);maxDate)
var Result = CALCULATE([Приход_шт]-[Продано_шт];DateInPeriod)
return Result

Остаток на кон_шт:= CALCULATE([Приход_шт]-[Продано_шт];DATESYTD('ТаблКалендарь'[Дата]))

Остаток на кон_шт: 
var Result = CALCULATE([Приход_шт]-[Продано_шт];DATESYTD('ТаблКалендарь'[Дата]))
return Result

Остаток на кон_шт:= CALCULATE([Приход_шт]-[Продано_шт];DATESYTD('ТаблКалендарь'[Дата]))

Остаток на кон_шт:= CALCULATE([Приход_шт]-[Продано_шт];DATESBETWEEN('ТаблКалендарь'[Дата];DATE(2023;1;1);MAX('ТаблКалендарь'[Дата])))

Sub Group()
    Dim dict As Object
    Dim arr As Variant, arr2 As Variant
    Dim i As Long, t1 As Double
    Dim key As Variant
    Dim j As Long
    

    ' Инициализация словаря
    Set dict = CreateObject("Scripting.Dictionary")
    t1 = Timer
    ' Загрузка данных из диапазона в массив
    arr = Range("A2:C31").Value

    ' Обработка каждой строки массива
    For i = LBound(arr, 1) To UBound(arr, 1)
        key = arr(i, 1) ' Первый столбец используется в качестве ключа

        ' Если ключ уже существует в словаре, суммируем или объединяем значения
        If dict.Exists(key) Then
            dict(key)(0) = CDbl(dict(key)(0)) + CDbl(arr(i, 2)) ' Суммируем значения во втором столбце
            dict(key)(1) = dict(key)(1) & ", " & arr(i, 3) ' Объединяем значения в третьем столбце
        Else
            ' Если ключ не существует в словаре, добавляем новую запись
            dict.Add key, Array(CDbl(arr(i, 2)), arr(i, 3))
        End If
    Next i

        
    j = 1
    ReDim arr2(1 To dict.Count, 1 To 3)
    For Each key In dict.keys
        arr2(j, 1) = key
        arr2(j, 2) = dict(key)(0)
        arr2(j, 3) = dict(key)(1)
        j = j + 1
    Next key
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A2").Resize(dict.Count, 3).Value = arr2
    MsgBox Round(Timer - t1, 0)
End Sub