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