You're not quite done with me yet.

Conditional Formatting: I've attempted, and so far, failed. I threw the statement in after a simple Autofit statement I plugged in, and just before the section that starts the definition of items pertaining to Grouping. I'll include a couple of rows before and after so you can see where I've inserted it. But just so you know, by me inserting this statement it did the following:
It formatted only certain cells that met the criteria (criteria: =$B2=1). For whatever reason, it left some rows unformatted even though they met the criteria.


Here is the Code:

Cells.Select
Cells.EntireColumn.autofit
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$B2=1"
Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Strikethrough = False
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
End With
Selection.FormatConditions(1).StopIfTrue = False
rz = Range("L1").End(xlDown).Row
Dim rStart, rEnd
rEnd = 1

And just so you are aware- I retrieved the above in red by recording my actions, and then inserted it into the equation.

P.S. - I think I know what part of the problem is: It is Applying the formula to the ENTIRE spreadsheet (=$1:$1048576). When it should only be applying to =$A2:$L264. Or, perhaps I could assign the "Applies to" to be something similar to what we used to color our Phase/Sub-Phase lines:

Set cz = Range("A1").End(xlDown)
For jr = 2 To cz.Row
Set org = Range("A" & jr & ":L" & jr)

Just not sure how i would incorporate it into Conditional Formatting.