Ошибка поиска значения на странице Excel

Dim nalichie_kypli As Variant
If Worksheets("Temp").Range("H:H").Find("объем по договорам купли-продажи") Then
nalichie_kypli = 1
End If

    If Not Worksheets("Temp").Range("H:H").Find("îáúåì ïî äîãîâîðàì êóïëè-ïðîäàæè") Is Nothing Then
        nalichie_kypli = 1
    End If

Sub sravnenie()
Dim finalRow_ceti, finalRow, x_current, x_ceti, k As Variant
 
finalRow = Cells(Rows.Count, 1).End(xlUp).Row
finalRow_ceti = Workbooks("Ñåòè.xls").ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
k = 0
counter_null_range = 0
For k = finalRow_ceti - 1 To 8 Step -1
If Workbooks("Сети.xls").ActiveSheet.Range("A" & k) <> "" Then
Exit For
End If
counter_null_range = counter_null_range + 1
Next
 
ActiveSheet.Columns("A:A").NumberFormat = "@"
Workbooks("Сети.xls").ActiveSheet.Columns("A:A").NumberFormat = "@"
 
Workbooks("Сети.xls").ActiveSheet.Cells(108, 1).Value = counter_null_range
Set CompareRange = Range("A8:A" & finalRow - 2)
Set CompareRange_ceti = Workbooks("Сети.xls").ActiveSheet.Range("A8:A" & finalRow_ceti - counter_null_range - 1)
 
 
For Each x_current In CompareRange
For Each x_ceti In CompareRange_ceti
If x_current = x_ceti Then
If x_current.Offset(0, 0) = x_ceti.Offset(0, 0) Then
x_ceti.Offset(0, 14) = "sadf"
End If
End If
Next x_ceti
Next x_current
 
End Sub

do while instr(1,txt,"  ")>0
txt=replace(txt,"  "," ")
loop