1
If you are trying to get zero-length strings left after reverting formulas (that may have resulted in "" ) to their values, the quickest way is to spin through the columns and apply a quick Text-to-Columns, Fixed Width, Finish to each.
Dim c As Long
With worksheets("Sheet1")
With .Range("A1"...