Listboxta sirano. problemi ve silme

[sbkstk]

iyi gunler

listboxta dblclick olayinda textboxlara veri aliyorum. silme islemi yapip satiri sildigimde sirano da silindigi icin textboxlara veri gelmiyor. yani 1-2-3-4 diya satir giderken ben 3. satiri sildigimde 4. satirdaki veri textboxlara gelmiyor bu sorunu nasil cozebilirim yardimci olabilirmisiniz buradaki amacim bir liste hazirlamak

textboxlara veri almak icin kullandigim kod;
X = ListBox1.Value + 9
sirano.Value = Sheets("yesildefter").Range("a" & X).Value
.
.
.

silmek icin kullandigim kod
Sheets("yesildefter").Cells(ListBox1.ListIndex + 10, "a").EntireRow.Delete

 

[sbkstk]

yardimci oalbilecek arkadaslar varmi bu konuda