hatayı buldum) maalesef son satırı bulma kodunu yanlış yere yazmışım

sonstr = Cells(Rows.Count, "C").End(xlUp).Row

Range("A2").CopyFromRecordset DataKayitlar

bu kısım hatalı önce veriyi kopyalayıp sonra satır no bulunmalı
aşağıdaki gibi düzenleyip dener misiniz?

Range("A2").CopyFromRecordset DataKayitlari

sonstr = Cells(Rows.Count, "C").End(xlUp).Row