运行时错误9下标越界

ugeso

Sub a()
rng1 = Range("A1", Cells(65536, 127))
rng2 = Range("DY1", Cells(65536, 127))
bj = [DX1]
For i = 127 To 2 Step -1
    For j = 1 To UBound(rng1)
        If rng1(j, i) = bj Then
            If rng2(j, i - 1) > 0 Then  ‘这一行，运行时错误9  下标越界
                rng2(j, i) = -1
            Else
                rng2(j, i) = rng2(j, i - 1) - 1
            End If
        Else
            If rng2(j, i - 1) > 0 Then ’这一行，运行时错误9  下标越界
                rng2(j, i) = rng2(j, i - 1) + 1
            Else
                rng2(j, i) = 1
            End If
        End If
     Next
Next
Range("DY1").Resize(UBound(rng2), UBound(rng2, 2)) = rng2
Columns(129) = Columns(256).Value
End Sub
请大家帮忙看下应该怎么修改，数据量太大了么？我换少点也会报这个错。。