Public Trgt As Double
Sub FINDINVOICES()
Dim AR() As Variant: AR = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
Dim i As Integer
Trgt = Range("B2").Value
For i = 2 To UBound(AR)
Combo AR, i, 1, 0, 0, ""
Next i
End Sub
Sub Combo(AR As Variant, grp As Integer, id As Integer, dpth As Integer, Total As Double, ro As String)
Dim acc As Double
Dim buf As String
For i = id To UBound(AR)
acc = Total + AR(i, 1)
buf = ro & i + 2 & ","
If dpth + 1 = grp Then
If acc = Trgt Then
Range("D1").Value = "Rows: " & Left(buf, Len(buf) - 1)
End
End If
Else
Combo AR, grp, i + 1, dpth + 1, acc, buf
End If
Next i
End Sub