Buscar un valor indicado en una columna y asignarele el valor

buenos días espero puedan ayudarme... Este es el problema:

tengo dos columnas A y B, y quiero darle un valor a una celda para que mediante alguna macro o código este valor que introduje en la celda sea buscada en la columna A y que me diga el valor correspondiente de B... No obstante a veces los valores que necesito introducir en la celda no son exactos a los de la columna A por tanto quisiera un código también que busque en caso que el valor no sea exacto busque el valor anterior mas cercano a el valor que yo di en la columna A y que pues indique el valor correspondiente en B... Ya con este código hace la primera parte pero no la parte de buscar el numero menor que se acerque al indicado en la celda en caso que no coincida exactamente... Este es el código que ya he creado:

Private Sub Worksheet_Calculate()

Dim Dato As Range

Set Dato = Hoja1.Range("A:A").Find(Hoja1.Range("E1").Value, LookIn:=xlValues, LookAt:=xlWhole)

If Dato Is Nothing Then

MsgBox "No se encuentra", 64, ""

Else

MsgBox "Dato en Columna A " & Dato & " en la B " & Dato.Offset(0, 1)

End If

End Sub

lo que quiero es evitar que no salga ese "no se encuentra" y busque un valor menor al indicado en caso que el valor puesto en la celda n osea exacto..

muchas gracias, espero puedan ayudarme!