I am trying to create a unique list, but the first value in the list is empty and seems to be causing me a problem. When I use the basic advanced filter, it essentially just names the Extract range and copies the formatting. Thus, F2 is equal to “Extract”, as shown below,

I tried many approaches using a range of criteria, but nothing works. Ideally, I want it to be VBA code, but the manual advanced filter does not work. To clarify that I'm looking for this,

, . - , ? " ", ? , , , , , .
, , , VBA, .
Range("E2:E5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"h1:h2"), CopyToRange:=Range("F2"), Unique:=True
