Populate Complete Row with Color of First Cell in the Row

[ramepetla]

How to Populate Complete Row with Color of First Cell in the Row

[cytop]

There's more to this question than the simple statement above.

Why do this? What happens to the colours when a different row is selected?

Please explain fully.

[ramepetla]

Initially I have highlighted some bunch of rows with different colours, later i have formula in the first and cell, started dragging towards down, then formula got updated along with the first cell color.

[cytop]

I'm sorry. That doesn't explain anything.

[JOHN H. DAVIS]

Maybe:

Sub ramepetla()
Dim i As Long, y
ReDim y(1 To Range("A" & Rows.Count).End(3).row)
For i = LBound(y) To UBound(y)
    Rows(i).Interior.ColorIndex = Cells(i, "A").Interior.ColorIndex
Next i
End Sub