为什么无法对单元格赋值？

用下面的代码对表2中J列单元格赋值，还有二个无法赋值，请高手指正错误。谢谢！
Sub Macro2()
    Dim I, J, ARR, BRR
    ARR = Sheet2.Range("A1:j" & Sheet2.Range("A65500").End(3).Row)
    BRR = Sheet1.Range("A2:b" & Sheet1.Range("A65500").End(3).Row)
    For I = 1 To UBound(ARR)
    For J = 2 To UBound(BRR)
    If ARR(I, 10) = "" And ARR(I, 1) = BRR(J, 1) Then
    Sheet2.Cells(I, 10) = BRR(J, 2)
    End If
    Next
    Next
End Sub

For J = 2 To UBound(BRR)
改成
For J = 1 To UBound(BRR)

谢谢二楼的回复！