Недостаточно ресурсов. выберите меньше данных или закройте другие приложения - VBA

Формулировка задачи:

Доброго времени суток. в общем такая проблема. Хочу вывести комбинацию 20-значных цифр от 1 до 80 в excel-2013. количество комбинаций = 3 535 316 142 212 170 000 3 535 316 142 212 170 000 * 2 ячеек (1 столбец-№ п/п, 2 столбец- комбинация). ______________________________________________________________________________ Макрос:

Sub asd()
Dim n As Integer
Dim m As Integer
n = 80
m = 20
colvo = 0
stroka = 0
stolbec = 2
List = 1
MaxStr = Rows.Count
 
MaxStl = Columns.Count
 
ReDim d(m - 1)
For i = 1 To m
  d(i - 1) = i
Next i
Do
  stroka = stroka + 1
  If stroka > MaxStr Then
  stroka = 1
  stolbec = stolbec + 2
  If stolbec > MaxStl Then
    stolbec = 2
    List = List + 1
    Worksheets.Add.Name = "" & List & ""
    Sheets("" & List & "").Activate
    ActiveSheet.Cells(1, 1).Select
 
  End If
  End If
  colvo = colvo + 1
  ActiveSheet.Cells(stroka, stolbec - 1) = colvo
  ActiveSheet.Cells(stroka, stolbec) = Join(d, " | ")
  i = m - 1
  While d(i) + m - i > n
    If i = 0 Then Exit Do
    i = i - 1
  Wend
  d(i) = d(i) + 1
  For i = i + 1 To m - 1
    d(i) = d(i - 1) + 1
  Next i
Loop
End Sub

После запуска макроса проходит примерно 3-4 минуты и выводит ошибку

"Недостаточно ресурсов. выберите меньше данных или закройте другие приложения"

_______________________________________________ тех.хар. компа: свободное место на диске больше 50гб оперативка 3072 мб RAM _______________________________________________ объясните в чем проблема. заранее спасибо.

Решение задачи: «Недостаточно ресурсов. выберите меньше данных или закройте другие приложения»

textual
                            Листинг программы 
                        
                                    If i = 0 Then Exit Do