" tgtRngsCount = Target.Cells.Count ReDim lastTgtRngData(2, tgtRngsCount) i = 1 For Each R In Target With R .FormatConditions.Add Type:=xlExpression, Formula1:="=OR(LEN(" & R.Address(0, 0) & _ ")>0, LEN(" & R.Address(0, 0) & "=0))" .FormatConditions(.FormatConditions...