Clear data but not cell color and grid lines

I have a spreadhseet where I tried to add a clear button to page 1. It works but is there a way to keep the cell color and grid lines?

If I can add one more item. I want to also clear other cells and I tried adding them to the range but I doesn't work.

This works:
Set Rng = Worksheets(Sht).Range(“B8:F14”)

This doesn't work:
Set Rng = Worksheets(Sht).Range(“B8:F14”,”A6”,”I4”,”J4”,”K4")

Much appreciated.

PeterTips Oct 25d.xlsm

Thank you so much.