![Çözüldü](images/icons/cozuldu.png)
İlk otuz kayıt yaptıktan sonraki ilk kayyıtta son kaydı siliyor yenisini ekliyor.
b = WorksheetFunction.CountA(Sheets("veri").Range("A:A"))
b = WorksheetFunction.CountA(Sheets("veri").Range("A:A")) + 1
On Error Resume Next