Sub SetConditionalFormat()
Range("A2:J15").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$J2=""P"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
End With
End Sub