Hi Sal,



Here's a routine that should delete the entire row(s) of any exact duplicates within the used range. It won't prevent the data from being imported twice, but should clean it up after the fact if it happens.

 
Sub DeleteDuplicateRows()
Dim iRow As Long
Dim jRow As Long
Dim iCol As Integer
Dim LastRow As Long
Dim FirstRow As Long
Dim FirstCol As Integer
Dim LastCol As Integer
Dim DelCount As Long
Dim DupFound As Boolean
DelCount = 0
Range("B11").CurrentRegion.Select '(Selects the range)
FirstRow = Selection.Row
LastRow = FirstRow + Selection.Rows.Count - 1
FirstCol = Selection.Column
LastCol = FirstCol + Selection.Columns.Count - 1
For iRow = FirstRow To LastRow - 1
For jRow = iRow + 1 To LastRow
DupFound = True
For iCol = FirstCol To LastCol
DupFound = DupFound And (Cells(jRow, iCol) = Cells(iRow, iCol))
If Not DupFound Then Exit For
Next iCol
If DupFound Then
Rows(jRow).Delete
LastRow = LastRow - 1
DelCount = DelCount + 1
End If
Next jRow
Next iRow
[A1].Select
End Sub
Just change the reference from B11 to the Top / Left cell of you range of interest.

Hope it helps,

Dan