Resetting Spreadsheet

EE Professionals,

I'm driving myself nuts with this problem.  I have a WS that clears itself and the color formats.

It Clears the table but will not clear the color changes in the referenced cells.

I've tried to use the following code and while it works in the "range" to clear and reset, the cells above 42 that are referenced by these table cells, do not change and if I use either the clear or the -0- command, I unfortunately replace the cell reference.  Any ideas?

Sub clearHeatmap()
Dim I As Integer
With Worksheets("BAO Heatmap")
    .Range("i52:i64").Clear
    .Range("i52:i64") = "0"
    .Range("d42:d47").Clear
    .Range("d42:d47") = "0"
    .Range("f42:f47").Clear
    .Range("f42:f47") = "0"
    .Range("i42:i49").Clear
    .Range("i42:i49") = "0"
    .Range("k42:k49").Clear
    .Range("k42:k49") = "0"
    .Range("n42:n48").Clear
    .Range("n42:n48") = "0"
    .Range("p42:p48").Clear
    .Range("p42:p48") = "0"
    .Range("s42:s50").Clear
    .Range("s42:s50") = "0"
    .Range("u42:u50").Clear
    .Range("u42:u50") = "0"
    .Range("x42:x49").Clear
    .Range("x42:x49") = "0"
    .Range("A1").Activate
'    Application.EnableEvents = True
'    Application.ScreenUpdating = True
   End With
   
End Sub