VBA apply conditional formatting to cell which currently have fill

[peedys14]

Hello,

I am using VBA to apply conditional formatting to a column however, I only want the conditional formatting to be applied to cells which already fill in them and skip any cells with no fill. Below is my current code.


Sub ApplyBAandCertConditionalFormatting()


With Sheet2
With .Range("M11:M10000")

.Activate

.FormatConditions.Delete



.FormatConditions.Add Type:=xlExpression, Formula1:="=$M11>$J11"
.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Color = -16777088
.TintAndShade = 0
End With
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With

.FormatConditions(1).StopIfTrue = False



.FormatConditions.Add Type:=xlExpression, Formula1:="=$M11>$K11"
.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Color = -16777088
.TintAndShade = 0
End With
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False


End With

End With


End Sub