Macro to bring empty cells of SearchResults to the bottom

I've a search sheet (SearchEngine) to query for certain criteria and return the corresponding results (SearchResults).
In order to have a nice presentation, I inserted this to my macro:

Please Login or Register  to view this content.

However, it sort all the blank cells at the top of the data. Is there a way to make all these blank cells to the bottom of the data instead? Because deleting them manually is not practical as the real database will have about 5000 entries. I've tried filter but it is not practical as well, as I'll need to reset a filter after everytime I've done a query (SearchEngine). I've also tried using delete empty rows code but doesn't work.

Any help is very much appreciated.

I've found the answer.