Seçili veriyi Silme

[seddur]

Arkadaşlar Merhaba.Randevu takip programı üzerinde çalışıyorum.Basit bir dosya paylaşıyorum.Yapmak istediğim Listbox1 ve listbox2 den excel sayfasına veri aktarıyorum Listbox2'deki veriye tıkladığımda listbox2'den silinmesini istiyorum.Bu arada excele'de kayıt yapmış olacak.Listboxdaki diğer veriler kalacak yalnızca sayfaya kaydettiğim veri(saat) listboxdan silinecek.Böylece kalan veriler Boş randevu saatlerini göstermiş olacak.Yardımcı olursanız sevinirim.

 

[seddur]

Aşağıdaki kod ile sorunu çözdüm fakat silinen değerlerin olduğu yerlerde boşluk oluşuyor.
If listbox2.ListIndex = -1 Then Exit Sub
For A = listbox2.ListCount - 1 To 0 Step -1
If listbox2.Selected(A) = True Then
listbox2.List(A, 0) = Clear
End If
Next