sSQL = "DELETE * FROM [Лист1$A:A] AS a WHERE a.F1=""mop"""
    cn.Execute sSQL 

Sub go()
    Dim sCon$, cn As Object, rs As Object
    Dim finalRow&, lCount&, sSQL$
    Set cn = CreateObject("ADODB.Connection")
    cn.Mode = adModeReadWrite
    Select Case CLng(Split(Application.Version, ".")(0))
    Case Is < 12
        sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
             & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
    Case Is >= 12
        sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName _
             & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    End Select

    sSQL = "SELECT * FROM [Лист1$A:A] " & _
           "WHERE [Лист1$A:A].test " & _
           "NOT IN (SELECT ttest FROM [Лист2$A1:B])"
    cn.Open sCon
    Set rs = cn.Execute(sSQL)
    lCount = UBound(rs.GetRows, 2) + 3
    
    With Лист1
        .Cells(2, 1).CopyFromRecordset cn.Execute(sSQL)
        finalRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Range(.Cells(lCount, 1), .Cells(finalRow, 1)).Clear
    End With
End Sub

  lCount = UBound(rs.GetRows, 2) + 3

.........................
cn.CursorLocation = 3
 cn.Open sCon
...........................
lCount=rs.RecordCount