Tamam kodları düzenledim. Yalnız önceki kayıtların temizlenmesi lazım. Yarım Excel kod bilgimle satırı şöyle sildiriyorum. Bu kodu daha hızlı yaptırabilirmiyiz.
Yani yukarıdaki başlıklardan aşağıda kalan verileri önce sildirmek gerekiyor.

son = Cells(Rows.Count, "A").End(3).Row

    For I = 9 To son

 

       Cells(9, son).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp

    Next