Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, coul As Byte
If Target.Address = '$A$1' Then
For i = 2 To 5
Cells(i, 1).Value = Cells(1, 1).Value
coul = Target.Interior.ColorIndex
Cells(i, 1).Interior.ColorIndex = coul
Next i
End If
End Sub