En mis hojas de calculo no uso la función Buscarv() o Burscarh() por su lentitud en ejecución y por su limitación de no poder devolver valores que se encuentran a la izquierda del vector de búsqueda. En cambio utilizo la siguiente función que mejora ambas características.

Public Function BUSCAROPT(ValorBuscado As Variant, VectorBusqueda As Variant, VectorDevolucion As Variant) As Variant

Dim Calculo1 As Double
Dim Calculo2 As Variant

Calculo1 = Application.WorksheetFunction.Match(ValorBuscado, VectorBusqueda, 0)

Calculo2 = Application.WorksheetFunction.Index(VectorDevolucion, Calculo1)

BUSCAROPT = Calculo2

End Function

Les sugiero agregar esta forma de calculo al paquete de funciones para mejorar rendimiento de libros de cálculo.

Saludos.