let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Family", type text}}),
    #"Added Custom" = Table.AddColumn(#"Changed Type", "Custom", each Text.Upper([Family])),
    #"Added Custom1" = Table.AddColumn(#"Added Custom", "Custom.1", each [Family]=[Custom]),
    #"Filtered Rows" = Table.SelectRows(#"Added Custom1", each ([Custom.1] = false)),
    #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Custom", "Custom.1"})
in
    #"Removed Columns"

=COUNTIFS($B$1:B2;">"&EOMONTH(B2;-1);$D$1:D2;D2)>=3

    For i = 1 To UBound(Arr)
        ArrOut(i) = WorksheetFunction.Sum(WorksheetFunction.Index(Arr, i, 0))
    Next

    For i = 1 To UBound(Arr)
        ArrOut(i) = WorksheetFunction.Sum(WorksheetFunction.Index(Arr, 0, i))
    Next

ReDim Pr_in(1 To N, 1 To Product(1).count) As Double ' Этот массив потом хитрым образом полностью заполняется
 
Dim P_in() As Double
P_in=WorksheetFunction.Sum(Pr_in)