Cannot delete empty columns (below header) where pasted source data had "" as result

I have a macro that cleans up my data sheet in preparation to feed into another program. Part of this cleanup is to copy the source worksheet to a new worksheet then paste all as values to remove lookup values. A separate part of the macro then deletes all rows where the interior color is anything other than yellow (colorindex=6) AND there is no data below the header row. However, this is not working on columns where I previously had a lookup value that output "" when there was no value found.

I tried adding a code to clear all cells where value was "", however that killed performance and made the macro unusable. Is there a way around this.

These are the two blocks that are not playing well together:

Please Login or Register  to view this content.

That's actually causing the formulas to still be in the destination sheet. I would have thought that Range("A4").Value = Range("A4").Value would remove that. I even expanded the range to include everything, but that didn't work either.