Datenimport ohne überschreiben

Private Sub cmdimport_Click()
Dim Zelle As Range
Dim quRows As Long
Dim zuRows As Long
Dim suche As Range
Dim QWB As Workbook, ZWB As Workbook
Dim qsh As Worksheet, zsh As Worksheet
Dim ordner As Variant
'Wenn die Datei erst geöffnet werden muss
Set ZWB = ThisWorkbook                  ' Ziel, Workbook mit diesem Makro
Set zsh = ZWB.ActiveSheet    ' Ziel
ordner = Application.GetOpenFilename("Manche Dateien (*.txt),*.txt,Alle Dateien,*.*")
Set QWB = Workbooks.Open(ordner)          ' Quelle, aus der die Tabelle41 kopiert werden soll
Set qsh = QWB.Worksheets("Sheet 1")   ' Quelle
If MsgBox("Nur Update?", vbYesNo) = vbNo Then
qsh.Cells.Copy zsh.Cells(1, 1)                ' oder before
Else
'code für update
quRows = qsh.UsedRange.Rows.Count
For Each Zelle In qsh.Range(qsh.Cells(1, 1), qsh.Cells(quRows, 1))
Set suche = zsh.Columns(1).Find(Zelle, , xlValues, xlWhole)
If suche Is Nothing Then
'zeile wird ins zielsheet unten angefügt
Zelle.EntireRow.Copy zsh.Cells(zsh.UsedRange.Rows.Count + 1, 1)
End If
Next
End If
QWB.Close          ' Wenn die Datei wieder geschlossen werden soll
End Sub