Try this:

Sub coupydown()
For i = 1 To 5
k = 0
For j = 1 To 4
If Cells(j, i).Font.ColorIndex = xlAutomatic Then
k = k + 1
End If
Next
MsgBox (k)
If k = 4 Then
Cells(5, i).Value = Cells(4, i).Value
End If
Next
End Sub
--
Gary''s Student - gsnu200735