Sub Test1()
Dim r1 As Range, r2 As Range, c As Range, v As Range
ActiveSheet.Range("$A$1:$AK$19").AutoFilter Field:=1, Criteria1:="="
ActiveSheet.Range("$A$1:$AK$19").AutoFilter Field:=2, Criteria1:="104395001"
Application.ScreenUpdating = False
With Sheets("Data")
Set r1 = .Range("D2:D" & .Range("D100").End(xlUp).Row)
End With
With Sheets("CR")
Set r2 = .Range("A1:A" & .Range("A100").End(xlUp).Row)
End With
For Each c In r1
Set v = r2.Find(c.Value)
If Not v Is Nothing Then
c.Offset(0, -1).Value = v.Offset(0, 1).Value
'Else
End If
Next