Redim Preserve error r/t 9 subscpt out of range

[jim may]

Code is bombing on code line in RED - what rule am I violating?

Option Base 1
Sub Foo()
Dim arr1()
Dim arr2()
Dim Rng As Range
Dim FDate As Date
LR = Range("A" & Rows.Count).End(xlUp).Row
Set Rng = Range(Cells(2, 1), Cells(LR, 2))
arr1 = Rng
ReDim Preserve arr2(1, 2)
arr2(1, 1) = Cells(2, 1)
arr2(1, 2) = Cells(2, 2)
NumMonths = 1
FDate = arr1(1, 1)
    For i = 3 To LR
        If Month(Cells(i, 1)) <> Month(FDate) Then
        NumMonths = NumMonths + 1
        ReDim Preserve arr2(UBound(arr2, 1) + 1, 2)
        arr2(NumMonths, 1) = Cells(i, 1)
        arr2(NumMonths, 2) = Cells(i, 2)
        FDate = DateSerial(Year(FDate), Month(FDate) + 1, 1)
        End If
    Next i
    MsgBox arr2(1, 1) & " and " & arr2(1, 2)
    MsgBox arr2(2, 1) & " and " & arr2(2, 2)
    MsgBox arr2(3, 1) & " and " & arr2(3, 2)
    MsgBox arr2(4, 1) & " and " & arr2(4, 2)
End Sub

 

[Norie]

When using Redim Preserve you can only change the last dimension.

 

[jim may]

When using Redim Preserve you can only change the last dimension.

Thanks Norie;
Can you spoon feed me a bit more here.. by "last dimension" do you mean the second parameter, the Column #?. In my case, what change should be made in order for the code to continue running?

TIA,

Jim

 

[Norie]

Jim

In this array:

ReDim Preserve arr2(UBound(arr2, 1) + 1, 2)

the last dimension is the 2, as far as I can see in your code you are using it to refer to columns.

If it was my code I'd just reverse the dimensions.

Doing that doesn't look like it'd cause a major problem to the purpose of the code, but doing that will be a hassle since the array is used quite a bit.

Every time I find myself having to do it I always seem to get it wrong somewhere and either end up with run-time errors or strange results.