Color in cell based on data using vba

[Even]

Hi there,
I am using conditional formatting, however, somehow it all gets messed up when I input new data and sort them. So I need a vba code to fill the cells with certain colors.
1. All the cells in column E that have a value between 0 and 92 should have the color code 10805247 in them.
And
2. All the cells that have ? in range F3:S500 should have the color code 8246183 in them.

And this need to happen without activating a module. The cells should be filled when the condition is met.

Is this possible without conditional formatting?

 

[kweaver]

This might work...

Sub SetColors()
Dim lr As Long, i As Long, j As Long
lr = Cells(Rows.Count, "E").End(xlUp).Row
 For i = 1 To lr
 If Cells(i, "E") >= 0 And Cells(i, "E") <= 92 and not isempty(cells(i, "E")) Then
  Cells(i, "E").Interior.Color = 10805247
 End If
 Next i
 For i = 3 To 500
  For j = 5 To 19
  If Cells(i, j) = ChrW(252) Then
   Cells(i, j).Interior.Color = 8246183
  End If
  Next j
  Next i
End Sub

 

[Even]

I can use this even though it needs to be triggered by attaching it to a box or something to activate. Thank you so much!