Bold Top 50% of summed values & Values => 50,000 - excel

Question

Sub Highlight_Top50_AND_50K()
Dim CheckRange As Range
With ActiveSheet
Set CheckRange = .Range("E2:E" & .Cells(.Rows.Count, "E").End(xlUp).Row)
End With
With CheckRange
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="=0.5*SUM(E:E)", Formula2:="=50,000"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Font.Bold = True
.StopIfTrue = False
End With
End With
End Sub
Within Range (E2:E),
CONDITION 1: Bold values that are greater than and equal to 50% of the summed values.
CONDITION 2: Bold values that are greater than and equal to 50,000.
The codes ran without error but nothing is generated. Could someone please enlighten me?

Answer 1

Test below code and see if it works for you. The code you've posted just adds one condition and not both the conditions you have stated!
With CheckRange
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="50000"
With .FormatConditions(1)
.Font.Bold = True
.StopIfTrue = False
End With
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="=0.5*SUM(E:E)"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Font.Bold = True
.StopIfTrue = False
End With
End With

Answer 2

For some reason i couldn't figure why one of your conditions is not working, but if it helps you this alternative should do the job
Sub Highlight_Top50_AND_50K()
Dim CheckRange As Range
Dim x As Range
Dim formula1 As Long
formula1 = Evaluate("=0.5*SUM(E:E)") 'define your first condition
Set CheckRange = Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row)
For Each x In CheckRange
x.Font.Bold = False
If x >= formula1 Then 'check if greater or equal than 50% of the summed values
x.Font.Bold = True
End If
If x >= 50000 Then ' check if greater or equal to 50,000
x.Font.Bold = True
End If
Next
End Sub