Visual Basic - compartivo para valores

que tal buen dia, por favor ayuda con un codigo par aun boton, tengo una hoja de excell y quiero insertar un codigo en un boton para qu erealice los sigueinte, que al anotar el valor en una celda haga la compracion de que si es mayor a 1 y menor a 300.01 entonces ponga 110 y asi sucesivamente, puse este codigo pero me hace la ecuacion y me arroja el ultimo valor, no me respeta la indicacion, auxilio por favor.

Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 1 < 301 Then Range("g26") = 110
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 301 < 1000 Then Range("g26") = 165
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 1000.01 < 5000.01 Then Range("g26") = 220
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 5000.01 < 10000.01 Then Range("g26") = 275
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 10000.01 < 15000.01 Then Range("g26") = 330
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 15000.01 < 30000.01 Then Range("g26") = 374
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 30000.01 < 50000.01 Then Range("g26") = 633.6
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 50000.01 < 100000.01 Then Range("g26") = 770
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 100000.01 < 200000.01 Then Range("g26") = 803
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 200000.01 < 300000.01 Then Range("g26") = 836
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 300000.01 < 400000.01 Then Range("g26") = 869
Sheets("hoja1").Select
Range("c13").Select
If Range("c13") > 400000.01 < 500000.01 Then Range("g26") = 902


End Sub