Sub Macro2()
Dim dl&
dl = Cells(Rows.Count, "A").End(3).Row
Range("B1:B" & dl).FormulaR1C1 = _
"=IF(ISERR(SEARCH(CHAR(32),RC[-1]))*ISERR(SEARCH(CHAR(160),RC[-1]))=0,1,"""")"
Columns("B:B").SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
Columns("B:B").Clear
End Sub