vba动态二维数组问题

如何解决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

尝试加载数据时，我总是下标超出范围错误。有人可以向我解释原因吗？

谢谢