Public Sub Kopieren()
Dim loLetzte As Long, raFund As Range
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
Set raFund = .Range("A21:A" & loLetzte).Find(what:="Werner", LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
.Rows(raFund.Row).Insert
.Range("A21:K21").Copy
.Cells(raFund.Row, 1).Offset(-1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End If
End With
End Sub