"gefundene" Zeile kopieren

Sub Such_und_Find()
On Error Resume Next
Dim WS1     As Worksheet
Dim WS2     As Worksheet
Dim WS3     As Worksheet
Dim Suche   As String
Dim find    As Variant
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
Set WS3 = Worksheets("Tabelle3")
For i = 1 To 500   'Anzahl der Zeilen
Suche = WS2.Cells(i, 1) 'Suchbegriff aus Tabelle 2 / Spalte A
Set find = WS1.Range("A:A").find(Suche, LookIn:=xlValues) ' In Tabelle 1 / Spalte a suchen
If find Is Nothing Then
WS2.Cells(i, 2) = "nicht gefunden" ' wenn nichts gefunden
Else
WS2.Rows(i).Value = WS1.Rows(i).Value ' wenn gefunden komplette Zeile von Tabelle 1 nach Tabelle 2 kopieren
End If
Next i
End Sub
Mein Problem ist diese Zeile,
WS2.Rows(i).Value = WS1.Rows(i).Value
für das Übernehmen der Daten (was so natürlich falsch ist).
Wie realisiere ich, dass die gefundene Zeile (?) in WS1 nach WS2 in Zeile (i) übernommen wird?
Hoffe ich konnte mein Problem verständlich schildern.
Gruß und Danke
Dirk