I am using;
Action:=xlFilterCopy, _
CopyToRange:=Range("A44"), _
Unique:=True

to copy unique names to a list - is there something I can add to this code
to strip out 'blank' entries at the same time ?

Thanks