[Excel 2003] Codice per dati univoci raddoppia prima riga

[libraio]

Ciao a tutti,
sto cercando di utilizzare un codice "recuperato" per estrarre in colonna C di un foglio i dati della colonna B, con valori univoci.
Il codice funziona bene, ma raddoppi il codice univoco della prima riga nella seconda riga.
Riporto il codice:
Range("B2:B65000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"C2"), Unique:=True
Columns("C:C").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("C:C").Select

Ed ecco il foglio di lavoro con la macro:
https://we.tl/t-7Kgxg0HOVv

Come posso risolvere l'errore?
Grazie

[Anthony47]

Nell'estrazione degli Unici, la cella di inizio e' considerata "intestazione" di colonna.
Se vuoi gli "unici effettivi" devi usare Range("B1:B65000").AdvancedFilter etc etc

Ciao

[libraio]

Grazie Anthony,
come sempre... risolutivo!