Çözüldü VBA Project Sorunları

Ekli dosyada da görüleceği üzere sarı dolgulu kod için '424' Hata kodu "Object required" hatası almaktayım. Ne yapmalıyım ?

Sub Kaydet()

Application.ScreenUpdating = False
Application.CutCopyMode = False

Dim i As Integer

i = sh_DB.Range("A1").End(xlDown).Row + 1

For k = 1 To 8

sh_Entry_Form.Range("D5").Copy
sh_DB.Cells(i, k).PasteSpecial xlPasteValues

Next k

Application.ScreenUpdating = True
Application.CutCopyMode = True


End Sub