Mercx,

I think this si waht you are asking


With Range("D6:R6")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=OR($O6=0,$O6="""")"
        With .FormatConditions(1).Font
            .Bold = True
            .Italic = False
        End With
        .FormatConditions(1).Interior.ColorIndex = 4
        .FormatConditions.Add Type:=xlExpression, Formula1:="=AND($P6="""",$Q6="""")"
        With .FormatConditions(2).Font
            .Bold = True
            .Italic = False
            .ColorIndex = 6
        End With
        .FormatConditions(2).Interior.ColorIndex = 3
        .AutoFill Destination:=Range("D6:R" & LastRow), Type:=xlFillFormats
    End With