Excel, cambiar color de celdas en un rango dinámico
Quiero poner varias celdas de un mismo color de manera dinámica, la condición es que la celda que seleccione, le ponga un valor (por default están como 0) y que al cambiar el valor de ahi hacia la derecha me debe de pintar las celdas hasta un cierto tope por ejemplo E1, pero yo esa celda que cambie de valor la pude escoger dentro del rango (A1 - E1). Estuve tratando de hacerlo esto es parte de mis prueba, Bueno espero que me haya dado ha entender, de cualquier manera muchas gracias =)
Sub Macro3()
If ActiveCell.FormulaR1C1 > "0%" Then
ActiveCell.Range("A1:E1").Select
If Not IsEmpty(ActiveCell.Range("A1:E1")) Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
ActiveCell.Offset(-2, 1).Range("A1").Select
End If
End Sub