Dim arrData(5)
arrData(0) = Array(...)
arrData(1) = Array(...)
...
ReDim Preserve arrData(1)(новый размер) 'Так сделать не получиться
Dim arrData(5)
arrData(0) = Array(1, 10, 100)
arrData(1) = Array(2, 20, 200)
arrTmp = arrData(1)
ReDim Preserve arrTmp(9)
arrData(1) = arrTmp
MsgBox UBound(arrData(1)) ' 9