Ya que me anterior mente me ayudaron a resolver el pequeño problema (pero grande para mi ya que soy totalmente nueva en esto

GRACIAS DE TODO

MI CODIGO
Sub según_sea()
'declarar variables
Dim Porcentaje As Single
Dim Valor As Integer, resultado As Integer, equivalente As Integer
'asignar valores a la celda
Porcentaje = Range("F8").Value
resultado = Range("F9").Value
equivalente = Range("F10").Value
Select Case Porcentaje
Case 0.5
Valor = 0
resultado = 0
equivalente = 0
Case 0.6
Valor = 580
resultado = 580
equivalente = 580
Case 0.7 <= 0.709
Valor = 790
resultado = 790
equivalente = 790
Case 0.8
Valor = 1030
resultado = 1030
equivalente = 1030
Case 0.9
Valor = 1300
resultado = 1300
equivalente = 1300
Case 1#
Valor = 1600
resultado = 1600
equivalente = 1600
Case 1.1
Valor = 1690
resultado = 1690
equivalente = 1690
Case 1.2
Valor = 1800
resultado = 1800
equivalente = 1800
Case 1.21 <= 1.21
Valor = 1920
resultado = 1920
equivalente = 1920
Case Else
Valor = 0
resultado = 0
equivalente = 0
End Select
'asigna el valor obtenido segun la condicion
Range("G8").Value = Valor
'asigna el valor obtenido segun la condicion
Range("G9").Value = resultado
'asigna el valor obtenido segun la condicion
Range("G10").Value = equivalente
End Sub