Objekt erforderlich, aber wie ??????

Sub Positionen_2_SchichtPlatten()
Dim LetzteZeile_Name As Long
With tbl_Kalkulation
.Unprotect ("20")
'2. Schritt____________________________________________________________________________________________________
' Überschrift kopieren + einfügen
'letzte Zeile in Spalte DA finden und eins tiefer gehen, gleiche Spalte
'Überschrift der Liste steht in Zelle DA1901, direkt darunter soll das erste mal der Name eingefügt werden
'        Set LetzteZeile_Name = .Cells(Rows.Count, "DA").End(xlUp).Offset(1, 0) 'Ziel in der Liste festlegen >> Zeile tiefer, gleiche Spalte
Set LetzteZeile_Name = .Range("DA1901" & .Range("DA" & Rows.Count).End(xlUp).Offset(1, 0))
LetzteZeile_Name = .Range("F15").Value    'Wert von Quelle *F15* nach Ziel *Liste letzte Zeile* übertragen
'        .Cells(Rows.Count, "DA").End(xlUp).Offset(1, 0) = .Range("F15").Value
End With
Set LetzteZeile_Name = Nothing
End Sub