Prova questa Function, inserendola in un modulo.

codice:
Public Function ValutaPrezzo(rng As Range) As Double

Dim prUnit As Double

Select Case rng.Value

    Case 0
        prUnit = 0
    
    Case 1 To 100
        prUnit = 50
    
    Case 101 To 200
        prUnit = 40
    
    Case 201 To 500
        prUnit = 30
    
    Case 501 To 1000
        prUnit = 20
    
    Case 1001 To 3000
        prUnit = 10
    
    Case Is > 3000
        prUnit = 5
        
End Select

ValutaPrezzo = prUnit

End Function
Sul tuo Foglio di Lavoro potrai utilizzare questa Function come una formula, ad esempio, nella cella B1:

codice:
=VALUTAPREZZO(A1)
Boolean