I have some code to filter a result set to a list of unique names - is
there something I can add that will also remove 'blank' entries ?

Range("AP1:AP" & LastRowNewData).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("A44"), _
Unique:=True


Thanks