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

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

Sub asd()
    Dim i%, m%, n%, colvo, Stroka&, Stolbec&, List%, MaxStr&, MaxStl&
    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 & ""
         End If
      End If
      colvo = colvo + 1
      Sheets("" & List & "").Cells(Stroka, Stolbec - 1) = colvo
      Sheets("" & List & "").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
    Loop While colvo < 32000
End Sub

        If i = 0 Then Exit Do