You can use something like:
Cells(r.Row, 1).Resize(, 29).Interior.ColorIndex = xlNone