Ayuda con un macro que funcione según celdas seleccionadas
Quiero realizar una macro en la que estoy selecionando ciertas celdas (A2, A1500, A3000, ETC) y se le agregue un valor, le cambie el color de la fuente y por ultimo borre el valor de la celda de abajo, esto ya lo logre solo que no se como debo seguir escribiendo las instrucciones y haga lo mismo que en el primer bloque es decir:
Range("A2") = "clr"
Range("A2").Font.ColorIndex = 1
ActiveCell.Offset(1, 0).Select
ActiveCell.ClearContents
End Sub
Como continuo con el siguiente bloque, la siguiente celda que debe ser ("A1500") despues ("A3000"), etc.
Agradezco como siempre su respeusta oportuna, Masters.
Gracias.