Delete blank spaces from a named range

A little back-story:

When trying to AddItem to listbox1, I got the following error:

Run-time error '70': Permission denied

After a bit of research, this is due to having my listbox1 RowSource bound to a named range. MSDN gave a solution here: solution, however I had a bunch of blank rows from testing. Now I'm trying to remove the blank rows from the named range with code in case users also do this. There's quite a few good examples on the net of removing blank spaces from listboxes, or from rows or columns, but I couldn't find anything specific to named ranges in Excel other than: this code, which keeps giving me errors. So, I need to know how to remove blank cells from a named range with vba. Thank you,