Unique And No Blanks In One Formula

is there a way to get the unique entries from a list with out blanks using only one formula?

currently i use

=if(countif(a$1:a1,a1)=1,a1,"")

to get unique entries

and



Function NoBlanks(DataRange As Range) As Variant()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' NoBlanks
' This function returns an array that consists of the non-blank values
' in DataRange. The function must be array-entered into the complete range
' of worksheet cells that are to receive the result. For example, if
' you want the results in B1:B10, select that range, type.................