Code falsch!

Private Sub CommandButton1_Click()
Dim Begr As String
Dim rFind As Range
Begr = InputBox("Bitte Suchbegriff angeben", "Suche nach...")
Set rFind = Columns(1).Find(Begr, LookAt:=xlWhole) 'ggf. die Spalte anpassen (1) = A
If Not rFind Is Nothing Then
With rFind
Sheets("Tabelle2").Range("A1").Value = Cells(.Row, 3)
End With
Else
MsgBox "Leider nicht gefunden!! Versuch doch nochmal!!!"
End If
End Sub