Condiciones IF

Hola, a todos los foristas, tengo dos preguntas sencillas, pero no
logro el objetivo, espero me puedan ayudar:

Pregunta1. Un código, NO la opción de formato condicional, ya que son
como 20 condiciones diferentes, pero con lo siguiente es suficiente
para entender.

Si la Celda ("A1") es mayor que 15, pero menor ó igual que 30,
entonces que coloree la celda ("B1") de rojo.



Pregunta 2.

Si cualquier celda del Rango ("A1:A25000") es mayor que cero, entonces
en la celda de la derecha escriba el valor de la celda en cuestión y
el texto "Mi texto"

Es decir,si la celda A500 > 0
entonces en B500 escriba el Valor de A500&"Mi texto"


Es decir,si la celda A750 > 0
entonces en B750 escriba el Valor de A750&"Mi texto"


Espero me haya explicado, y que me puedan ayudar. De antemano muchas
gracias

dim celda as range
for each celda in range("A1:A25000")
with celda
select case .valu
case >15 and =< 30
.offset(0,1).interior.colorindex=3 ' este numero es
el que corresponde al rojo
case otra condición
.offset(0,1).interior.colorindex= otro número
end select
end with
next

dim celda as range
for each celda in range("A1:A25000")
with celda
select case .valu
case >15 and =< 30
.offset(0,1).interior.colorindex=3 ' este numero es
el que corresponde al rojo
case otra condición
.offset(0,1).interior.colorindex= otro número
end select
end with
next

dim celda as range
for each celda in range("A1:A25000")
with celda
select case .valu
case >15 and =< 30
.offset(0,1).interior.colorindex=3 ' este numero es el
que corresponde al rojo
case otra condición '''''''' aqui tendrias que reemplazarlo
por otra condicion , algo asi como

.offset(0,1).interior.colorindex= otro número '''''' y
aqui reemplazar "otro numero" por un numero" por ejemplo el 5.
end select
end with
next