Arrays vba动态二维数组问题

我正在尝试创建一个动态二维数组，如下所示：

i=0

当我尝试加载数据时，总是出现下标越界错误。有人能给我解释一下原因吗

谢谢

ReDim rowdata(0, 0)

Do Until ActiveCell = ""
    
    If ActiveCell = cmbTypes Then

        rowdata = Application.Transpose(rowdata)
        
        ReDim rowdata(i * 2 + 2, i + 1)
        rowdata = Application.Transpose(rowdata)

        If InStr(1, LCase(ActiveCell.Offset(0, 1)), LCase(txtDescription)) Then

                rowdata(i, i*2+1) = ActiveCell.Offset(0, 1)
                rowdata(i, i*2+2) = ActiveCell.Offset(0, 4)
                                    
                i = i + 1
                
        End If