Listbox'da kaydetme sorunu

[seddur]

Aşağıdaki kod ile listbox3'deki verileri excel sayfasına aktarıyorum ama listbox'ı temizleyip yeni kayıt yaptığımda excel sayfasına tekrar 1.satırdan itibaren yazıyor,kaldığı yerden devam etmiyor.Tek satırlık bir ilaveyle sorunun çözüleceğini biliyorum ama nereye ekleyeceğimi bulamadım yardım ederseniz sevinirim.

For sat = 0 To ListBox3.ListCount - 1
For sut = 1 To 7
Sheets("Liste").Cells(sat + 1, sut) = ListBox3.List(sat, sut - 1)
Next: Next

 

[Zeki Gürsoy]

xrow = Sheets("Liste").Cells(Rows.Count, "a").End(3).Row

For sat = 0 To ListBox3.ListCount - 1
    For sut = 1 To 7
        Sheets("Liste").Cells(sat + 1 + xrow, sut) = ListBox3.List(sat, sut - 1)
    Next
Next