>Sub Sample5() 
>    Dim i As Long, FoundCell As Range
>    For i = 4 To 15
>        Set FoundCell = Range("A4:A29").Find(what:=Cells(i, "E").Value)
>        If Not FoundCell Is Nothing Then
>            FoundCell.Offset(0, 2).Value = Cells(i, "F").Value
>        End If
>    Next i
>End Sub
>

>Sub Sample5() 
>    Dim i As Long, FoundCell As Range
>    For i = 4 To 15
　　　　 debug.print FoundCell
>        Set FoundCell = Range("A4:A29").Find(what:=Cells(i, "E").Value)
>        If Not FoundCell Is Nothing Then
>            FoundCell.Offset(0, 2).Value = Cells(i, "F").Value
>        End If
>    Next i
>End Sub
>

>>Sub Sample5() 
>>    Dim i As Long, FoundCell As Range
>>    For i = 4 To 15
>　　　　 debug.print FoundCell
>>        Set FoundCell = Range("A4:A29").Find(what:=Cells(i, "E").Value)
>>        If Not FoundCell Is Nothing Then
>>            FoundCell.Offset(0, 2).Value = Cells(i, "F").Value
>>        End If
>>    Next i
>>End Sub
>>