'Define Ranges
Dim CombinedRangeClaims As Range
Dim HealthRangeClaims As Range
Dim DentalRangeClaims As Range
Dim CombinedRangeDeposits As Range
Dim HealthRangeDeposits As Range
Dim DentalRangeDeposits As Range
'Set Ranges
Set CombinedRangeClaims = Range("U" & FirstRow3 & ":Y" & CFICombTotal & " ")
Set HealthRangeClaims = Range("U" & FirstRow & ":Y" & CFIHealthTotal & " ")
Set DentalRangeClaims = Range("U" & FirstRow2 & ":Y" & CFIDentalTotal & " ")
Set CombinedRangeDeposits = Range("P" & FirstRow3 & ":S" & CFICombTotal & " ")
Set HealthRangeDeposits = Range("P" & FirstRow & ":S" & CFIHealthTotal & " ")
Set DentalRangeDeposits = Range("P" & FirstRow2 & ":S" & CFIDentalTotal & " ")
'Delete Existing Conditional Formatting from Range
CombinedRangeClaims.FormatConditions.Delete
HealthRangeClaims.FormatConditions.Delete
DentalRangeClaims.FormatConditions.Delete
CombinedRangeDeposits.FormatConditions.Delete
HealthRangeDeposits.FormatConditions.Delete
DentalRangeDeposits.FormatConditions.Delete
'Apply Conditional Formatting
CombinedRangeClaims.FormatConditions.Add Type:=xlExpression, Formula1:="=ROUND(U" & FirstRow3 & ",2)<>ROUND(G" & FirstRow3 & ",2)"
HealthRangeClaims.FormatConditions.Add Type:=xlExpression, Formula1:="=ROUND(U" & FirstRow & ",2)<>ROUND(G" & FirstRow & ",2)"
DentalRangeClaims.FormatConditions.Add Type:=xlExpression, Formula1:="=ROUND(U" & FirstRow2 & ",2)<>ROUND(G" & FirstRow2 & ",2)"
CombinedRangeDeposits.FormatConditions.Add Type:=xlExpression, Formula1:="=ROUND(P" & FirstRow3 & ",2)<>ROUND(B" & FirstRow3 & ",2)"
HealthRangeDeposits.FormatConditions.Add Type:=xlExpression, Formula1:="=ROUND(P" & FirstRow & ",2)<>ROUND(B" & FirstRow & ",2)"
DentalRangeDeposits.FormatConditions.Add Type:=xlExpression, Formula1:="=ROUND(P" & FirstRow2 & ",2)<>ROUND(B" & FirstRow2 & ",2)"
'Set interior color to yellow
CombinedRangeClaims.FormatConditions(1).Interior.Color = RGB(255, 255, 102)
HealthRangeClaims.FormatConditions(1).Interior.Color = RGB(255, 255, 102)
DentalRangeClaims.FormatConditions(1).Interior.Color = RGB(255, 255, 102)
CombinedRangeDeposits.FormatConditions(1).Interior.Color = RGB(255, 255, 102)
HealthRangeDeposits.FormatConditions(1).Interior.Color = RGB(255, 255, 102)
DentalRangeDeposits.FormatConditions(1).Interior.Color = RGB(255, 255, 102)