数组运行错误，只获得部分引用

阳光的弯弯

代码已经写了12个月的数据，为什么运行只获得部分数据

根据物业和房租的日期，为什么只得到3月-9月数据，前面1月和2月、后面10月-12月都不能获得数据。请大侠帮忙看看。

阳光的弯弯

Sub 应收()
Dim i, j, arr, brr, crr
    x = Range("E" & Rows.Count).End(xlUp).Row
    arr = Range("bl1:bw" & x)
    On Error Resume Next
    For i = 4 To x Step 2
        For j = 64 To 75
        brr = Range("AM" & i & ":AT" & i + 1)
        crr = Range("AU" & i & ":BJ" & i + 1)
            k = k + 1
            If Range("bk1") = "物业" Then
              Cells(i, j) = Application.WorksheetFunction.HLookup(arr(2, k), brr, 2)
            Else
              Cells(i, j) = Application.WorksheetFunction.HLookup(arr(2, k), crr, 2)
              End If
        Next j
        k = 0
    Next i
End Sub

这是代码，调试中都没错，就是运行就不对了