Найти приращение между ячейками, чтобы их сумма достигла определенной суммы

Question

Dim i As Double
Dim myRange
Dim results As Double

myRange = Worksheets("V1 PI by Rank Gap, LoS by Ratio").Range("U3", "U29")

Do Until results >= 1

i = Worksheets("V1 PI by Rank Gap, LoS by Ratio").Range("V3").Value

i = i + 0.000000000001

results = WorksheetFunction.Sum(myRange)

Loop

Привет всем, я пытаюсь использовать l oop, чтобы найти "приращение / разрыв", необходимый для суммы массива строк, чтобы достичь значения "1"

, но Код, который я попытался, делает Excel не отвечающим ....

спасибо за любой ввод