Color cells if the cells have value

hello!

I would like to have the cells colored if the cells have value. I tried to do it myself but the code is too long...is any other way to to this?
The range is b6:b200. and range O6-U200. There are some gaps, that's why I take cell by cell!
What I have so far is:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [b6] <> "" Then [b6].Interior.ColorIndex = 8
If [b6] = "" Then [b6].Interior.ColorIndex = xlNone
If [b7] <> "" Then [b7].Interior.ColorIndex = 8
If [b7] = "" Then [b7].Interior.ColorIndex = xlNone

If [b9] <> "" Then [b9].Interior.ColorIndex = 8
If [b9] = "" Then [b9].Interior.ColorIndex = xlNone
'
'

End Sub

Any help is really appreciated!
tim