Сравнение значения в ячейке со значением в диапазоне

Sub zakr()
Dim x, y, z, a, b, c As Variant
Dim e As Range
x = 3
'определяем количество ячеек'
Do
If Cells(x, 3) = "" Then
Cells(x, 39) = 0
Else: Cells(x, 39) = 1
End If
x = x + 1
Loop Until Cells(x - 1, 39) = 0
'Собственно проблема здесь в сравнении во второй строке вылезает ошибка 13'
Do
Set Cells(e, 1) = Range("AS:AS").Find(vValue)
If Cells(e, 1) Is Nothing Then
Cells(e, 4) = ""
Else: Cells(e, 4) = Cells(e, 3)
End If
e = e + 1
Loop Until Cells(e, 39) = 0
end sub

Sub For_danbas()
LR_A = Cells(Rows.Count, 1).End(xlUp).Row
LR_AS = Cells(Rows.Count, 45).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To LR_A
    For j = j To LR_AS
       If Cells(LR_A, 1).Value = Cells(LR_AS, 45).Value Then
         Cells(LR_A, 2) = Cells(LR_A, 3)
         Exit For
       End If
    Next j
Next j
Application.ScreenUpdating = True
End Sub

Sub Da()
  With Range("C1:C" & Cells(Rows.Count, 1).End(xlUp).Row)
    .Formula = "=IF(COUNTIF(AS:AS,A1),B1,"""")"
    .Value = .Value
  End With
End Sub