Delete with shift causes cells loose fill & border around

I am using the following VBA to remove some unwanted data out of data that I want to keep continuous in cells that have a tan fill & borders around each cell.

The problem is when the data shifts up into the area I have a tan fill color & borders around each cell, they bring the non-filled & non-border cells with them.

        rngCell.Offset(-4, 0).Resize(10, 10).Delete shift:=xlUp

Any ideas how to easily retain the tan & borders around the cells would be greatly appreciated. Thanks so very much. mikeburg

You can try to use this macro:

   Range(rngCell.Row - 4 & ":" & rngCell.Row + 5).Delete

Regards,
Antonio