I Need Numbers to Be Duplicated

So the problem I am having is that the spreadsheet I am using gives me the possible combinations of an array that could total 1000 with using a max of 8 values in the array. The problem is that the combinations do not include duplicate numbers.

Using the numbers below and only picking 8 values total you can see that you would be able to pick 114, 8 times to get a total of 912. But this macro doesn't give this result. How can I get all possible values?

708
443
355
289
127
126
114
99
61
60
51
50
27
19
15

Sub btn_GetCombos_Click()

Dim rngNumbers As range
Dim i As Long, j As Long, k As Long
Dim colResults As New Collection
Dim arrResults() As String
Dim arrComboLoc As Variant
Dim LocIndex As Long
Dim dTot As Double
Dim str As String
Dim dTargetSum As Double
Dim bAdvanced As Boolean

Set rngNumbers = range("A2", Cells(Rows.Count, "A").End(xlUp))
range("F2:F" & Rows.Count).ClearContents

If Not IsNumeric(range("D2").Value) _
Or Len(Trim(range("D2").Value)) = 0 Then
range("D2").Select
MsgBox "Must provide a Target SUM number"
Exit Sub
End If

If Not IsNumeric(range("D3").Value) _
Or Len(Trim(range("D3").Value)) = 0 Then
range("D3").Select
MsgBox "Must provide the number of cells to use"
Exit Sub
ElseIf range("D3").Value > rngNumbers.Cells.Count Then
range("D3").Select
MsgBox "Number of cells may not exceed total amount of cells"
Exit Sub
ElseIf range("D3").Value < 1 Then
range("D3").Select
MsgBox "Number of cells may not be less than 1"
Exit Sub
End If

dTargetSum = range("D2").Value
arrComboLoc = Application.Transpose(Evaluate("Index(Row(1:" & range("D3").Value & "),)"))

On Error Resume Next
For i = 1 To WorksheetFunction.Combin(rngNumbers.Count, range("D3").Value)
dTot = 0
str = vbNullString
For LocIndex = LBound(arrComboLoc) To UBound(arrComboLoc)
dTot = dTot + rngNumbers.Cells(arrComboLoc(LocIndex)).Value
str = str & ", " & rngNumbers.Cells(arrComboLoc(LocIndex)).Value
Next LocIndex
If dTot <= dTargetSum Then
str = Mid(str, 3)
colResults.Add str, str
End If

bAdvanced = False
For j = UBound(arrComboLoc) To LBound(arrComboLoc) Step -1
If arrComboLoc(j) < rngNumbers.Cells.Count - (UBound(arrComboLoc) - j) Then
arrComboLoc(j) = arrComboLoc(j) + 1
For k = j + 1 To UBound(arrComboLoc)
arrComboLoc(k) = arrComboLoc(j) + k - j
Next k
bAdvanced = True
Exit For
End If
If bAdvanced = True Then Exit For
Next j
Next i

If colResults.Count > 0 Then
ReDim Preserve arrResults(1 To colResults.Count)
For i = 1 To colResults.Count
arrResults(i) = colResults(i)
Next i
range("F2").Resize(colResults.Count).Value = Application.Transpose(arrResults)
Else
MsgBox "No valid combinations found to be less than or equal to " & dTargetSum & " when using " & range("D3").Value & " cells."
End If

End Sub

Any takers?
I tried putting rem in various places in the code but it just errors out.

Wow. These are amazing responses. I now see that I wasn't completely clear in my original question.

possible combinations of an array that could total 1000

I should have said that the total could be up to 1000 and not go over 1000 with a selection of 8 numbers.
That's why I gave this example.

pick 114, 8 times to get a total of 912

When I tried running the code myself I get this error.

Run-Time error 13
Type mismatch

It then highlights this

Combin(8) = Terms(i8)

I had cell I8 blank and it gave the error. I put 1000 in cell I8 and it gave the error.

When I type in ?i8,terms(i8) it says

Print i8, Terms(i8)

It has something to do with the workbook that I was using. When I placed the macro into a new workbook the code worked.

I noticed when running the macro that when it gave out the possible combinations, there were combinations that didn't use 8 numbers.

Is there a way so that the code always uses a total of 8 numbers?

Could the code be changed to find within a range of say 975 - 1000 ?

I just am unsure of how to change the code myself if you wouldn't mind helping.

Again, thanks for the help. Alas, I tried tweaking the code but came up short. Could never get it to work.