给变量赋值 提示下标越界 麻烦大神帮忙

CHCY0E23

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim ARR, i, j, n '查询
n = Range("B3").Value
j = Range("E3").Value
i =Workbooks("\\10.10.73.6\2021\养殖分户明细.xlsm").Sheets("养殖分户明细").Range("a" & Cells.Rows.Count).End(3).Row
ARR = Workbooks("\\10.10.73.6\2021\养殖分户明细.xlsm").Sheets("养殖分户明细").Range("a1:K" & i)
For i = 2 To UBound(ARR)
      If ARR(i, 2) = n And ARR(i, 3) = j Then
      Range("F2") = ARR(i, 4)
      Range("B6") = ARR(i, 9)
      Range("E6") = ARR(i, 10)
      Range("b2") = ARR(i, 5)
      Range("C8") = ARR(i, 8)
      End If
      Application.ScreenUpdating = True
      end sub
绿色字体运行就提示下标越界 麻烦老师给看一下谢谢

剑指E

以下仅修正了语法，但代码中还存在逻辑错误（for循环中）