Ocultar todas las filas vacías del rango A:A

¿Por qué major no la eliminas ya están vacíos no tiene ningún valor?

Para ocultar seria de esta manera

Sub ocultar()
Final = Range("a10000").End(xlUp).Row
For Each celda In Range("a2:a" & Final)
If celda = "" Then
celda.EntireRow.Hidden = True
End If
Next
End Sub

Hola Aneudys, gracias por tu ayuda.

no las elimino por que son las filas del final.

por ejemplo tengo 5 filas con datos, y todo lo que sobra para abajo son filas que al parecer estan vacías,  pero tienen algún tipo de información invisible que al exportarla a txt  este las guarda como espacios,  ya probé ocultándolas manualmente y al exportarla soluciono el problema, pero no he podido dar con una macro para que lo haga automático.