make rws in mshflexgrid match rows in array

I am revisiting some code i wrote a few yrs ago and am lost
I have a variant array declared like this:
Dim roof() As Variant
roof (0 To 50, 0 To 7) this array holds numbers input by a user and fills a mshflexgrid with the numbers.
It adds rows as needed. I have added a feature to remove numbers from the array from the end and from the middle of the array. Each columns last row holds a total of the numbers in the column. The mshflexgrid is always as tall as the column with the most numbers. I know i should have used a collection, but it's too late now
How can i rediminsion this array and resize my grid?