Sub iPaion()
Dim FoundPaion As Range
Dim i As Integer
Range("E3:E" & Cells(Rows.Count, "E").End(xlUp).Row + 1).ClearContents
With Worksheets("hetk")
For i = 3 To 11
Set FoundPaion = .Columns(1).Find(Cells(i, "C"), , xlValues, xlWhole)
If Not FoundPaion Is Nothing Then
Cells(i, "E") = .Cells(FoundPaion.Row, "B")
End If
Next
End With
End Sub