Zeile mit bestimmtem Wert in Tabellenblatt 2

Sub NameUndAdresse()

Dim i As Integer, k As Integer

i = 2 'Zeilenzähler für Tabelle1
k = 2 'Zeilenzähler für Tabelle2

With Tabelle1
  Do While .Range("A" & i).Value <> "" 'Solange Zelle A nicht leer ist
    If .Range("E" & i).Value = "Ja" Then 'Wenn in Spalte E "Ja" steht
      Tabelle2.Range("A" & k).Value = .Range("A" & i).Value 'Wert aus aktueller Zelle Ai in Tabelle2 Zelle Ak kopieren
      Tabelle2.Range("B" & k).Value = .Range("B" & i).Value 'Wert aus aktueller Zelle Bi in Tabelle2 Zelle Bk kopieren
      k = k + 1
    End If
  
  i = i + 1
  Loop
End With

End Sub