「項目1」」から重複しないデータを抽出します。
[ポイント]
Unique:=True

Sub filtunq()

'重複しないデータを抽出
'「Unique:=True」　で重複しないデータが抽出できる。
'「F9」は転記先
Range("C9:C39").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("F9"), Unique:=True


End Sub