verbundene Daten aus Sheet1 in Sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range, ber As Range
Dim zeile As Long, i As Long
Dim shZiel As Worksheet
Set shZiel = Sheets("Tabelle2")
Set ber = Intersect(Target, Range("A2:A65536"))
On Error GoTo errhandler
Application.EnableEvents = False
If Not ber Is Nothing Then
For Each z In ber
zeile = shZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
z.EntireRow.Copy Destination:=shZiel.Cells(zeile, 1)
Next z
End If
zeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = zeile To 2 Step -1
If UCase(Cells(i, 1)) = "X" Then
Rows(i).Delete shift:=xlUp
End If
Next i
errhandler:
Application.EnableEvents = True
End Sub