Soru Listbox sayfaya aktarma

[sirkülasyon]

Set S1 = Sheets("teklif")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
S1.Range(S1.Cells(10, 2), S1.Cells(sat, sut)) = ListBox1.List

ustam; listboxta 3 satır var ise aktarıyor ondan sonra ki satırlar #YOK olarak sayfaya aktarılıyor.
Listboxta kaç satır ver ise aktardıktan sonra #YOK yazısını aktarmaması için ne yapabilirim?

 

[PLİNT]

Merhaba
Aktarılan listenin; aktarılacağı hücrelerin başlangıcı "B10" görünüyor;
Buna göre aşağıdaki değişikliği yaparak deneyelim
S1.Range(S1.Cells(10, 2), S1.Cells(9 + sat, 1 + sut)) = listbox1.List

 

[Trilenium]

For i = 0 To ListBox1.ListCount - 1
sonsat = Range("A" & Rows.Count).End(xlUp).Row + 1
With Sheets("teklif")
.Cells(sonsat, "A") = ListBox1.List(i, 0)


End With
Next i