vba code to get all combinations if they equal a cell - vba

Question

So I have a 15 column by 100 row sheet of data that has all different percentages, from 100%-0%, that I'm looking to get all possible combinations out of it. Right now I have a code that works that puts the combinations into another 15 columns. The problem is, how do I make the code only output the combinations that when added together = 100%. This is the code that I have right now.
Sub Perm()
Dim rSets As Range, rOut As Range
Dim vArr As Variant, lRow As Long
Set rSets = Range("A1").CurrentRegion
ReDim vArr(1 To rSets.Columns.Count)
Set rOut = Cells(1, rSets.Columns.Count + 2)
Perm1 rSets, vArr, rOut, 1, lRow
End Sub
Sub Perm1(rSets As Range, ByVal vArr As Variant, rOut As Range, ByVal lSetN As Long, lRow As Long)
Dim j As Long
For j = 1 To rSets.Rows.Count
If rSets(j, lSetN) = "" Then Exit Sub
vArr(lSetN) = rSets(j, lSetN)
If lSetN = rSets.Columns.Count Then
lRow = lRow + 1
rOut(lRow).Resize(1, rSets.Columns.Count).Value = vArr
Else
Perm1 rSets, vArr, rOut, lSetN + 1, lRow
End If
Next j
End Sub

Answer 1

I assumed your percentages were decimal values and not text (.3 instead of 30%). Just added an if statement that sum's vArr and checks if the sum is 1.
Sub Perm1(rSets As Range, ByVal vArr As Variant, rOut As Range, ByVal lSetN As Long, lRow As Long)
Dim j As Long
For j = 1 To rSets.Rows.Count
If rSets(j, lSetN) = "" Then Exit Sub
vArr(lSetN) = rSets(j, lSetN)
If lSetN = rSets.Columns.Count Then
If WorksheetFunction.Sum(vArr) = 1 Then
lRow = lRow + 1
rOut(lRow).Resize(1, rSets.Columns.Count).Value = vArr
End If
Else
Perm1 rSets, vArr, rOut, lSetN + 1, lRow
End If
Next j