Option Explicit
Sub ColumnColor()
Dim Rng As Range
Dim iJ As Integer, Temp As Integer
For iJ = 1 To 5
Temp = Cells(1, iJ) / 10
Set Rng = Range(Cells(10 - Temp, iJ), Cells(9, iJ))
With Rng.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Next iJ
Set Rng = Nothing
End Sub