Nur bestimmte Zelle übernehmen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle206
ZeileMax = .UsedRange.Rows.Count
n = 2
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 8).Value = "ja" Then                   'kopieren wenn ja ausgewählt
.Rows(Zeile).Copy Destination:=Tabelle216.Rows(n)       'einfügen der Zelle in Wartungstabelle   _
_
Tabelle
n = Tabelle215.Cells(Rows.Count, 1).End(xlUp).Row + 1   'leere Zelle Suchen
End If
Next Zeile
End With
End Sub