I'm using:

With Range("F:F")
.Replace " ", ""
.SpecialCells(xlCellTypeBlanks).EntireRow.delete

End With


but it also delete cell in which nothing is written.