Zelle finden und ganze Zeile kopieren

Private Sub CommandButton1_Click()
Dim rng As Range
If TextBox1.Text = "" Then
Beep
MsgBox "Sie müssen in der ComboBox einen Suchbegriff auswählen!"
Exit Sub
End If
Set rng = Worksheets("Sender").Columns(3) _
.Find(TextBox1.Text, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
'MsgBox "jawoll"
With Worksheets("Target")
iRow = .Cells(Rows.Count, 1).End(xlUp).row
If iRow = 1 Then iRow = 2 Else iRow = iRow + 3
Rows(i).Copy Worksheets("Target").Rows(j)
End With
Else
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
Unload Me
End Sub