son = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Address

Range("a9", son).Select

Range("a9", son).EntireRow.Delete

hocam bu kot excelde çalışıyor ama aceess ten evele gönderme butonunda hata veriyor.