1st Unique value show twice VBA

[miqbal]

I tried this code to copy and paste unique values but 1st value comes twice.

Dim cell As Range, areaToTrim As Range

Set areaToTrim = ActiveWorkbook.ActiveSheet.Range(Selection.Address)

areaToTrim.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I4"), Unique:=True

Range("I4", Cells(Rows.Count, 9).End(xlUp)).Select

Selection.SpecialCells(xlCellTypeBlanks).Select

Selection.Delete Shift:=xlUp

Range("I4", Cells(Rows.Count, 9).End(xlUp)).Select


End Sub

 

[Fluff]

To prevent that from happening you will need a header row.