Excel won't recognize interior color when using sumbycolor funtion

Hey guys I need help please. I wrote code that conditionally formats cells that contain a specific number then it sorts the colored cells to the bottom and finally I wan't to sum the cells that only contain the interior color. The problem is when I execute the function sumbycolor excel doesn't recognize the cells colors and sums the entire column (color or no color). How do I fix This? Thank you!

Sub MySheet

'Conditional  formatting
   Range("A1").CurrentRegion.Select
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$F1=99999"
   Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
   With Selection.FormatConditions(1).Interior
      .PatternColorIndex = xlAutomatic
      .Color = 65535
      .TintAndShade = 0
   End With
   Selection.FormatConditions(1).StopIfTrue = False

 'Sort by color column C
   Dim sht As Worksheet
   Dim rngSort As Range
   Dim rngTable As Range
   Set sht = ActiveSheet

   RowCount = sht.Range("A1").End(xlDown).Row
   Set rngSort = sht.Range("A1:A" & RowCount)
   Set rngTable = Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell))

    sht.Sort.SortFields.Clear
    sht.Sort.SortFields.Add(rngSort, _
       xlSortOnCellColor, xlDescending, , _
       xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
   With sht.Sort
      .SetRange rngTable
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
   End With

 'Sum by color
   lr = Cells(Rows.Count, "O").End(xlUp).Row - 1
   sumRange = Range("O2:O" & lr).Address
   lr = Cells(Rows.Count, "P").End(xlUp).Row - 1
   sumRange2 = Range("P2:P" & lr).Address
   lr = Range("B" & Rows.Count).End(xlUp).Row
   CellColor = Range("B" & lr).Address

   Range("C1").Select
   ActiveCell.End(xlDown).Offset(9, 0).Formula = "=(ColorFunction(" & CellColor & "," & sumRange & ",TRUE)+ColorFunction(" & CellColor & "," & sumRange2 & ",TRUE))" 

End Sub