Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
If Not Intersect(Target, Range("C:C")) Is Nothing Then
    Application.EnableEvents = False
    i = Target.Row
    Do
    i = i - 1
        If i = 3 Then
            MsgBox "Данные не доступны!"
            Exit Do
        ElseIf Cells(i, "C").Value = Target.Value Then
            Target.Offset(, 1) = Cells(i, "E")
            Exit Do
        End If
    Loop
End If
Application.EnableEvents = True
End Sub