Друзья, по этому коду видно, что ReDim Preserve может менять верхнюю границу последней размерности многомерных размеров, но не может менять первую размерность.  
 
Sub Test()  
   Dim a() As Byte  
   ReDim a(10, 20)  
   ReDim Preserve a(10, 30) 'работает  
 
   ReDim a(10, 20)  
   ReDim Preserve a(30, 30) 'не работает  
End Sub  
 
 
Почитал тему http://www.vbnet.ru/forum/show.aspx?id=51884  
там в конце есть ссылка на файл с кодом для VB    
http://vbnet.ru/samples/download.aspx?id=691  
 
Я немного изменил код того файла, чтобы он заработал в VBA, но не могу понять его логику  
 
Public Type tArr  
   a() As Long  
End Type  
 
Dim a() As tArr  
Dim ArrX As Long, ArrY As Long  
 
Sub Test()  
   Dim X As Long, Y As Long, ArrTest()  
   ReDim ArrTest(1 To 3, 1 To 5)  
   ReDimArr UBound(ArrTest, 1), UBound(ArrTest, 2)    'передаём в функцю ReDimArr размерность нашего массива  
   Randomize  
   For Y = 0 To ArrY  
       For X = 0 To ArrX  
           a(X).a(Y) = Int(Rnd() * 100)  
           Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = a(X).a(Y)  
       Next X  
   Next Y  
End Sub  
 
Function ReDimArr(NewX As Long, NewY As Long)  
   Dim i As Long  
   ReDim Preserve a(0 To NewX) As tArr  
   For i = 0 To NewX  
       ReDim Preserve a(i).a(0 To NewY) As Long  
   Next i  
   ArrX = NewX  
   ArrY = NewY  
End Function  
 
Вопросов много  
1) что делает функция ReDimArr  
2) что за написание a(X).a(Y), которое нормально работает под VBA  
3) если я передаю в функцию числа 3, 5, то почему на листе появляются 18 чисел.  
 
Может быть есть функция или ещё что, чтобы можно было менять размер первой размерности массива?  
 
Вопрос, так сказать, просто теоретический