Kapalı dosyada ilk boş satır

[acolkesen1]

merhaba,
kapalı excel dosyasında "islem_saati" sütununda son dolu satırın bir altına (ilk boş satıra) işlem zamanını
yazdırmak istiyorum. Aşağıdaki kod ise sayfadaki son dolu satırı referans alarak ilgili sütuna işlem saatini yazıyor.
Bu durumu nasıl düzeltebilirm?

Set bg = CreateObject("adodb.connection")
Set ah = CreateObject("Adodb.recordset")
bg.Open = "Provider=microsoft.ace.oledb.12.0;data Source=" & [s!b231] & ";Extended properties=""excel 12.0;hdr=Yes"";"

ah.Open "select * from [1$];", bg, 1, 3
ah.addnew

ah("islem_saati") = Format(Time, "hh:mm:ss")

ah.update
ah.Close
bg.Close
Set ah = Nothing
Set bg = Nothing