Вывод значения из промежуточной итерации для дальнейшего использования в цикле

n=0
Do
  ...
  n=n+1
Loop Until ...
'n - номер итерации

'4 Суммарные затраты 
C = Ck + Cohl 
 
'Оптимизационный расчет 
'Исходные данные для итерации 
 
's- колво АВО с 2мя включенными вентиляторами
'm- колво АВО с 1м включенными вентиляторами
'i - колво АВО с выключенными вентиляторами
 
y = 0  'номер итерации
 
If s > 0 Then 'если по результатам основного расчета есть АВО с 2мя включенными вентиляторами
sopt = s - 1 
mopt = m + 1 
End If 
 
If s = 0 Then 'если по результатам основного расчета нет АВО с 2мя включенными вентиляторами
mopt = m - 1 
iopt = i + 1 
End If 
 
Do 
Copt = C 
 
'1 Расчет системы охлаждения 
'2 Расчет параметров линейной части 
'3 Расчет параметров системы компримирования 
'4 Суммарные затраты 
C = Ck + Cohl 
 
'Переход к следующей итерации 
 
If s > 0 Then 
sopt = sopt - 1 
mopt = mopt + 1 
If sopt < 0 Then 
sopt = 0 
mopt = navo 
iopt = 0 
mopt = mopt - 1 
iopt = iopt + 1 
End If 
End If 
 
If s = 0 Then 
mopt = mopt - 1 
iopt = iopt + 1 
End If 
 
y = y + 1 
 
Debug.Print y, sopt, mopt, iopt, Copt, C, Ck, Cohl, T1, T2 
Loop Until Copt - C < 0 Or T1 > 313 Or y > 100

If s > 0 Then 
sopt = sopt - 1 
mopt = mopt + 1 
If sopt < 0 Then 
sopt = 0 
mopt = navo 
iopt = 0 
mopt = mopt - 1 
iopt = iopt + 1 
End If 
End If

y=0
...
Do
...
If s > 0 Then 
   sopt = sopt - 1 
   mopt = mopt + 1 
   If sopt < 0 Then 
      mark=1
      R=y 'отправить это значение в какое-то хранилище данных, в котором бы не происходили изменения с последующими циклами
      sopt = 0 
      mopt = navo 
      iopt = 0 
   End If 
End If
 
y=y+1
 
If mark=1 Then 
   mopt = mopt - (y-R) 
   iopt = iopt + (y -R)
End If
 
Loop Until...