Vermeidung doppelter Datensätze beim Kopieren

Sub alle_Dateien_Verzeichnis2() '
On Error GoTo Fehler
Dim Pfad$, Ext$, Datei$, TB1, TB2, LR1 As Double, LR2 As Double
Dim SP As Integer, EZ As Integer, XZeilen As Integer, MaxZeilen As Integer
Ext = "*.xl*"
Pfad = "X:\Temp\Test\" '**** mit \
Set TB1 = ThisWorkbook.Sheets("MasterTabelle1") 'das Sammelblatt
SP = 1 'erste Datenspalte
EZ = 2 'Ab Zeile2 / wegen Überschriften
XZeilen = 7 ' letzen x Zeilen
Datei = Dir(Pfad & Ext)
Do While Len(Datei) > 0
Workbooks.Open Filename:=Pfad & Datei
Set TB2 = ActiveWorkbook.Sheets("Tabelle1")
LR1 = TB1.Cells(TB1.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
LR2 = TB2.Cells(TB2.Rows.Count, SP).End(xlUp).Row
'alle Daten kopieren
TB1.Rows(LR1 + 1).Resize(LR2 - EZ + 1).Value = _
TB2.Rows(EZ).Resize(LR2 - EZ + 1).Value
Workbooks(Datei).Close False 'schliessen ohne speichern
Datei = Dir() ' nächste Datei
Loop
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub