Sumproduct into vba

[fraufreda]

I have the following formula in one of the tables. but due to large data it takes time to recalculate. how can i incorporate it into vba code?

{SUMPRODUCT(RecTbl[NOD] * (RecTbl[NAME]=[@[ID]]) * (RecTbl[ TYPE]=LBal[[#Headers],[Taken]])*(RecTbl[END DATE]<[@[AsOf]])*(RecTbl[END]-RecTbl[NOD]>=[@[Beg]]))}

 

[fraufreda]

here is my attempt. Any guidance please

Dim i As Long
Dim arr() As Long

With Range("RecTbl[NAME]")

ReDim arr(1 To .Rows.Count) As Variant

    For i = LBound(arr) To UBound(arr)
        If arr(i) = TextBox1.Value And arr(i).Offset(0, 3).Value <= AsOf.Value And arr(i).Offset(0, 3).Value - arr(i).Offset(0, 4).Value >= Beg.Value Then
            Select Case arr(i).Offset(0, 1).Value
                Case Label51.Caption
                    Label23.Caption = WorksheetFunction.Sum(arr(i).Offset(0, 4).Value)
            End Select
        End If
    Next
End With