Sub ConditionalFormatPT2()
   dim rFormat as Range
    with ActiveSheet.PivotTables("ItemList").DataBodyRange
       set rFormat = .Resize(.rows.count - 1)
    end with
    with rformat
       .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=LEN(TRIM(C10))=0"
       .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
    End With
  End With
for instance