Как использовать ReDim Preserve для двумерного массива - VBA

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

Создали, например, mArr(n, 4). При определенном условии в ячейке первого столбца, нужно загнать в этот массив еще несколько значений из той же строки.

 mcounter=0 
 For i=1 to endRow ' 
      mtxt=Cells(i,1).value
      if instr(1,mtxt,mtxt_2, vbTextCompare) <> 0 Then
          mcounter = mcounter +1
          Redim preserve mArr(mcounter,8)
           mArr(mcounter,1)=mtxt
           mArr(mcounter,2)=Cells(i,8).value
           mArr(mcounter,3)=Cells(i,21).value
           mArr(mcounter,4)=Cells(i,99).value
          
           Debug.Print mArr(mcounter,1); (mcounter,2); (mcounter,3); mArr(mcounter,4)
       End if
 next i

Первый раз - все хорошо, во втором прохождении - ругается на Redim preserve mArr(mcounter,8). Не могу понять причину. Как правильно в таких случаях изменять на ходу только одну границу (в большую сторону, конечно) ? Подскажите, пожалуйста.

Решение задачи: «Как использовать ReDim Preserve для двумерного массива»

textual
                            Листинг программы 
                        
                            ALen = UBound(a)-LBound(a)    'и еще проверку на нулевой индекс