Vlookup vba excel

hola soy un principiante super motivado en esto nuevo que estoy aprendiendo.

mi problema es que en la siguiente macro como resultado del rango A1 me da: #N/A

quisiera saber que debo arreglar. Slds

Sub Macro1()
'definición de variables
Dim valorh As String
Dim BuscarvValorha As Variant, valor As Variant, BuscarvRango As Range
valor = InputBox( Introduzca un texto , introducir , Cuadro de entrada )

'celda con el valor que buscamos(CUARTEL)
valorh = val(valor)

Set BuscarvRango = Range( Hoja1!A2:O240 ) 'rango donde buscar

'Queremos la columna 9 (las hectáreas)
BuscarvValorha = Application.VLookup(valorh, BuscarvRango, 9, False)

Range( A1 ).FormulaR1C1 = Val(BuscarvValorha) 'traspasar datos a rango A1
End Sub