Doppelte Werte werden im Excel nicht kopiert

Private Sub ImportiereCSVDatei()
Dim wbTarget As Workbook
Dim wbSource As Workbook
Dim ws As Worksheet
Dim fd       As FileDialog
Dim fso
Dim fileCSV  As Variant
Dim dateiname, tmp As String
Dim strNameSheet As String
Dim lngZaehler As Long
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set fso = CreateObject("Scripting.Filesystemobject")
Set wbTarget = ActiveWorkbook
Application.DisplayAlerts = False
'Datei auswählen
With fd
.Title = "CSV-Datei suchen..."
.ButtonName = "Öffnen"
.AllowMultiSelect = False
.Filters.Add "CSV-Dateien", "*.csv", 1
.FilterIndex = 1
If .Show = -1 Then
'Schleife geht durch das ausgewählte File
For Each fileCSV In .SelectedItems
'Prüfung ob es wirklich ein CSV File ist
If LCase(Right(fileCSV, 3)) = "csv" Then
'Öffnen des CSV Files
Workbooks.OpenText Filename:=fileCSV
Set wbSource = ActiveWorkbook
On Error Resume Next
Set ws = wbTarget.Worksheets(fileCSV)
If Err  0 Then
'CSV File wird hinter den bereits bestehende Tabellenblätter angehängt
Set ws = wbTarget.Worksheets.Add(After:=wbTarget.Sheets(wbTarget.Sheets. _
Count))
Blattname:
'Eingabe des Blattnamens der einzulesened CSV Datei - verpflichtend!
strNameSheet = InputBox("Bitte verpflichtend einen Namen für das  _
Tabellenblatt eingeben: ", _
Title:="CVS-Datei - Blattname", Default:=strNameSheet)
'Falls keine Angabe - Nochmalige Eingabe
If strNameSheet = "" Then
GoTo Blattname
Else
'Function - prüft auf Registerblattnamensgleichheit
If fncCheckSheetName(strSheetName:=strNameSheet, wkb:=wbTarget) =  _
True Then
MsgBox ("Blatt """ & strNameSheet & """ ist schon vorhanden!")
GoTo Blattname
End If
End If
'Setzen des Namens ins Registerblatt
ws.Name = strNameSheet
ws.Range("A:ZZ").Clear
End If
'Der eigentliche Sinn des Makros => Kopieren
wbSource.Worksheets(1).Range("A:A").TextToColumns Destination:=Range("A1"),  _
DataType:=xlDelimited, Space:=True, ConsecutiveDelimiter:=False, Semicolon:=True
wbSource.Worksheets(1).Range("A:ZZ").Copy Destination:=ws.Range("A1")
wbSource.Close False
End If
Next fileCSV
End If
Application.DisplayAlerts = True
End With
Call MsgBox("Programm wurde beendet", vbExclamation, "E N D E")
End Sub