Fehler bei Suche durch benutzerdefin. Format

Sub VergleichenKopieren()
Dim rng As Range
Dim lEnd As Long
Dim lRow As Long
Dim wksK As Worksheet
Dim wksA As Worksheet
Set wksK = Worksheets("Kopie alt")
Set wksA = Worksheets("aktuell")
lEnd = wksK.Range("A65536").End(xlUp).Row
For lRow = 9 To lEnd
Set rng = wksA.Range("A:A").Find(what:=(wksK.Cells(lRow, 1)), _
LookIn:=xlValues, lookAt:=xlWhole)
If Not rng Is Nothing Then
wksK.Range(wksK.Cells(lRow, 5), wksK.Cells(lRow, 20)).Copy _
Destination:=wksA.Cells(rng.Row, 5)
End If
Next
End Sub