I recorded the following code, but when it is played back the first condition works perfectly, but the second condition seems to be applied to the same range as the first condition. Can anyone tell me what I need to change? Thanks

' conditional format 1
Range("A5:S2000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$N5<>$N4"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Borders(xlTop)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlHairline
End With
Selection.FormatConditions(1).StopIfTrue = False

' conditional format 2
Range("N6:R2000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$N6=$N5"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False