Ezzel az a probléma, hogy a

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=""chr(64)"""

szűrő mindent átenged, aminek az első karaktere chr(64)-nél kisebb.
Pl. "#", " ", "3vnsfgder"
Ezek mind átmennek. Attól függően, hogy az 1-2. feltételben beállított számhatárok micsodák, ezek a karaktersorozatok átmehetnek mind 3 szűrőn, és nem lesznek pirosak.