Hacer una búsqueda

Hola molestando de nuevo fíjate que ya tenia yo supuestamente bien todo con respecto a la búsqueda que tu me ayudastes a corregir pero ahora me sale con una pequeña inconveniencia que es que cuando pongo supuestamente un valor por decir 71 en en la celda de búsqueda el excel hace la búsqueda pero en toda la hoja no solo en la columna marcada que es E y por decir si tengo una cantidad en la celda de precio 171 toma esa y no la partida de 71 sabes como forzar a que busque solo en la columna y aparte que busque la cantidad exacta 71 no las variaciones como 12171, 171 espero que me entiendas este es el código que estoy usando espero que le encuentres el error
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dato
dato = Sheets("REPORTE").Range("J5")
If dato <> "" Then
On Error GoTo Mensaje
Set busca = Sheets("REPORTE").Range("E9:E65536").Find(dato, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not IsEmpty(busca) Then
Cells.Find(What:=busca, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=True).Activate
ActiveCell.Offset(0, 0).Interior.ColorIndex = 4
ActiveCell.Offset(0, 1).Select
Range("J5").Cells = ""
Exit Sub
End If
Mensaje:
MsgBox "No se encontró la PARTIDA buscada"
Range("J5").Select
Exit Sub
Set busca = Nothing
Range("J5").Cells = ""
Range("J5").Activate
End If
End Sub