fejl dynamisk to-dimension array

Hej
Jeg har forsøgt mig med en to-dimension array med får probleme når jeg vil ændre den "første dimension" og vil bibeholde mine data. Hvad gør jeg forkert.

I min test kode er det sidste linje som giver fejl

Sub TestToDim()
Dim Arr() As Variant
MaxA = 5
MaxB = 6
ReDim Arr(MaxA, MaxB)

Arr(4, 1) = 99 'indlæser værdi
Arr(1, 2) = 59 '


For x = 0 To UBound(Arr, 1) 'MaxA
    If Arr(x, 1) <> 0 Then
            MsgBox "" & Arr(x, 1)
    End If
Next x

ReDim Preserve Arr(5, UBound(Arr, 2) + 1) 'OK
ReDim Preserve Arr(5, 11) 'OK
ReDim Arr(6, 11)  ' ok

ReDim Preserve Arr(7, 11)  'FEJL Ikke ok fordi??????

End Sub