Сравнение массивов - Ошибка Method 'Range' of 'object' Global Failed

Sub array_1()
 
 Dim lLastRowA As Long
 Dim ArrayA() As Variant
 Dim lLastRowB As Long
 Dim ArrB() As Variant
 
  lLastRowA = Cells(Rows.Count, "A").End(xlUp).Row
  lLastRowB = Worksheets("Лист2").Cells(Rows.Count, "A").End(xlUp).Row
  
 ArrayA = Range("A1:A & lLastRowA").Value
 ArrayB = Worksheets("Лист2").Range("A1:A & lLastRowB").Value
  
         For i = 1 To UBound(ArrayA)
         For ii = 1 To UBound(ArrayB)
         If ArrayA(i, 1) = ArrayB(ii, 1) Then
         MsgBox "Ok", vbInformation
         Exit For
         End If
         Next ii, i
   
End Sub

Sub Procedure_1()
 
    Dim lLastRowA As Long
    Dim lLastRowC As Long
    Dim i As Long
    Dim rFind As Excel.Range
    
    lLastRowA = Cells(Rows.Count, "A").End(xlUp).Row
    lLastRowC = Cells(Rows.Count, "C").End(xlUp).Row
       Application.ScreenUpdating = False    
    For i = 2 To lLastRowA Step 1
              Set rFind = Worksheets("Лист2").Columns("A").Find(What:=Cells(i, "A").Text, LookIn:=xlValues, _
            LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
         
             If Not rFind Is Nothing Then
              Worksheets("Лист3").Cells(lLastRowC, "A").Value = Cells(i, "A").Value
              Worksheets("Лист3").Cells(lLastRowC, "B").Value = Cells(i, "B").Value
               
            lLastRowC = lLastRowC + 1
        End If
            
    Next i
    Application.ScreenUpdating = True
    
End Sub

Sheets("Тут название листа на который выводите").Range("Тут адрес ячейки в которую выводите").Value = ArrayA(i, 1)