Macro to bring empty cells of SearchResults to the bottom

[kayoke]

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:

    Range("H8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("SearchResult").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("SearchResult").Sort.SortFields.Add Key:=Range( _
        "H8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal

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.

[kayoke]

I've found the answer.