Bestimmtes Datum/Zeile suchen - Werte einfügen

Sub Test2()
Dim k As Range
Dim Zeile As Long, xks As Worksheet
Set wks = Sheets("Tabelle2")
If Not wks Is Nothing Then
With wks '
Set k = wks.[B2:B2000].Find(Sheets("Tabelle1").[B2].Value, , , xlWhole, xlByRows,  _
xlNext)
If Not k Is Nothing Then k.Cells(Zeile + 1, 3) = Sheets("Tabelle1").[C2].Value      ' _
Linie
k.Cells(Zeile + 1, 4) = Sheets("Tabelle1").[D2].Value 'Stück
k.Cells(Zeile + 1, 5) = Sheets("Tabelle1").[E2].Value 'Einheiten
End With
Set wks = Nothing
End If
End Sub