How to ignore empty cells when getting unique values

Hi
I have the values below in column A

Titel
olle
fia
olle
pelle
fia
siv
fia

nisse

in cell D2 I have A1:A65536<>"" and I use the code below

Please Login or Register  to view this content.

The result i get in Blad2!D1 is

Titel
olle
fia
pelle
siv

nisse

I must admit that I don't know how to use CriteriaRange, but is there a way to skip empty cells with AdvancedFilter. The code is for adding unique values to Blad2!D1 every time a new unique value is added in column A but not empty cells or values.

Thanks
Fia