Не работает поиск разных значений на разных листах

Sub Поиск_разных_значений()
    Dim lLastRowA As Long
    Dim lLastRowB As Long
    Dim lLastRowC As Long
    Dim rFind As Excel.Range
    lLastRowA = Лист7.Cells(Rows.Count, "A").End(xlUp).Row
    lLastRowB = Лист8.Cells(Rows.Count, "A").End(xlUp).Row
    lLastRowC = 2
   Лист9.Range("A2:A100").ClearContents
    Application.ScreenUpdating = False
    
    For i = 2 To lLastRowA Step 1
        Set rFind = Sheets(a).Columns("A").Find(What:=Лист7.Cells(i, "A").Text, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        If rFind Is Nothing Then
            Лист8.Cells(lLastRowC, "A").Value = Лист7.Cells(i, "A").Value
            lLastRowC = lLastRowC + 1
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "ГОТОВО!", vbInformation
End Sub

Sub macro1()
Set objConnection = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ";" & _
"Extended Properties=""Excel 12.0;HDR=Yes"";"
strSQL = "SELECT a2.[1 столб]"
strSQL = strSQL & " FROM [Лист1$] AS a2 LEFT JOIN [Лист2$] AS a1 ON a2.[1 столб] = a1.[2 столб]"
strSQL = strSQL & " WHERE (((a1.[2 столб]) Is Null))"
strSQL = strSQL & " GROUP BY a2.[1 столб]"
strSQL = strSQL & " ORDER BY a2.[1 столб];"
rs.Open strSQL, objConnection, 3, 3
Sheets("Лист3").Cells(2, 1).CopyFromRecordset rs
Set rs = Nothing
Set objConnection = Nothing
End Sub

Option Explicit
 
Sub Поиск_разных_значений()
    Dim lLastRowA As Long
'    Dim lLastRowB As Long
    Dim lLastRowC As Long
    Dim rFind As Excel.Range
    Dim i As Long
    lLastRowA = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
'    lLastRowB = Лист8.Cells(Rows.Count, "A").End(xlUp).Row
    lLastRowC = 2
    Sheets(3).Range("A2:A100").ClearContents
    Application.ScreenUpdating = False
    
    For i = 2 To lLastRowA Step 1
        Set rFind = Sheets(2).Columns("A").Find(What:=Sheets(1).Cells(i, "A").Text, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        If rFind Is Nothing Then
            Sheets(3).Cells(lLastRowC, "A").Value = Sheets(1).Cells(i, "A").Value
            lLastRowC = lLastRowC + 1
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "ГОТОВО!", vbInformation
End Sub