REMOVE DUPLICATES

I would suggest you make a module for deleting duplicates - call this SUB after you exported data;

or you can add the code after the 'export code' .

try this first on a separate sheet - always make a copy of your work.

hope this can help.

thanks..

Sub DelDupes()
 Sheets("Sheet1").Select
 lastrow = Cells(Rows.Count, "A").End(xlUp).Row
 Sheets("Sheet1").Range("A1:P" & lastrow).RemoveDuplicates _
 Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16), Header:=xlYes
End Sub

the above code is for up to Column P  - number 16th column
the reason for Array(1... 16)
you can change those two together with the Sheet Name to suit..