求大神帮忙修改一下vba，提示下标超出范围，还有结果如何再输出到excel单元格里？

Sub test()
Dim i, k, j
Dim arr As Variant
arr = Range("a1:k" & [k65536].End(3).Row)
j = [m2]
Dim brr()
ReDim brr(LBound(arr) To UBound(arr), 1 To 10)
For i = LBound(arr) + 1 To UBound(arr)
For k = 2 To 11
brr(i - 1, k - 1) = Abs(arr(i + 1, k) - arr(i + 1, j) - [p2] * (i - 1))
Next
Range(i + 1, 18) = brr(i - 1, k - 1) '提示这一行超出范围。
‘我想把同一行brr相加起来输出到单元格里，请问怎么写？
Next
End Sub

不知道你要达到什么目的。

For i = LBound(arr) + 1 To UBound(arr)

当循环最后一轮时arr(i + 1, j)就会下标越界

For k = 2 To 11

执行完循环后k=12，brr(i - 1, k - 1)超范围

Range(i + 1, 18)

没有这种写法

我是来看评论的