You should be able to remove this portion of the macro :
Code:
With Sheets(1).Range("A1:J72").Interior 'removes background color from sheet cells
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
That should retain the background coloring of the cells.
Let me know.