Help with a macro to delete empty (but not blank) cells OR sort blanks to the bottom

Recipes.xlsm

I'm trying to create a list of all items marked as ingredients without any blank cells. Right now I've got the columns in the Validation2 tab reflecting how they're set up in the master database. In the Validation tab, I want to be able to have a list of all items marked as ingredients in alphabetical order. Using the Go To Special doesn't work because the cells aren't blank. The code I'm using is:

Please Login or Register  to view this content.

but it doesn't work completely; it only deletes some of the empty cells.

Is there a way to sort a column alphabetically with the blanks at the bottom, or to edit this code so that it deletes all of the blank cells?

Please Login or Register  to view this content.

Seems to work perfectly, thanks!