Excel - duda con codigo

Bueen dia tengo un problema para escribir el codigo de VBA, quiero hacer una macro que a diferentes celdas les cambie el valor e inmediatamente la celda de abajo quede en blanco. La primer celda especifica queda,cambia el valor y deja la celda de abajo en blanco, para la otras solo cambia el valor de la celda pero no deja la celda siguiente en blaco. Se que algo me falta pero no se que es.

Range("A2") = "clr"

Range("A2").Font.ColorIndex = 1

ActiveCell.Offset(1, 0).Select

ActiveCell.ClearContents



Range("A1500") = "clr"

Range("A1500").Font.ColorIndex = 1

ActiveCell.Offset(1, 0).Select

ActiveCell.ClearContents



Range("A3000") = "clr"

Range("A3000").Font.ColorIndex = 1

ActiveCell.Offset(1, 0).Select

ActiveCell.ClearContents

Con esta instrucción le estas diciendo al Excel que a partir de la celda activa se desplace una fila hacia abajo:

Pero cuando realizas estas dos acciones no pones esta celda como activa:

En cambio al hacer esto si la pones como activa:

Lo mejor para tu código sería esto:

Saludos.
\\//_