Listbox1 satır değerlerinde bir hata var!

[harziyan]

İyi geceler;
Listbox1'den Listbox2'ye maksimum 5 satır veri alıyorum. (Hatta 5 ile sınırlandırılabilirse âlâ olur) Listboxtaki her satır, "tge" sayfasında "a8" ile "a12" hücrelerine aktarılıyor. Sorunum şu; Listboxtaki veri sayısı 5 ise kodlar çalışıyor, ancak veri sayısı 5'den az ise sorun yaşıyorum. Hatam nedir?
Teşekkürler.

    If ListBox2.List(0, 0) = "" Then
    Sheets("tge").[a8].Value = ""
    Else
    Sheets("tge").[a8].Value = ListBox2.List(0, 0)
    End If
    
    If ListBox2.List(1, 0) = "" Then
    Sheets("tge").[a9].Value = ""
    Else
    Sheets("tge").[a9].Value = ListBox2.List(1, 0)
    End If
    
    If ListBox2.List(2, 0) = "" Then
    Sheets("tge").[a10].Value = ""
    Else
    Sheets("tge").[a10].Value = ListBox2.List(2, 0)
    End If
    
    If ListBox2.List(3, 0) = "" Then
    Sheets("tge").[a11].Value = ""
    Else
    Sheets("tge").[a11].Value = ListBox2.List(3, 0)
    End If
    
    If ListBox2.List(4, 0) = "" Then
    Sheets("tge").[a12].Value = ""
    Else
    Sheets("tge").[a12].Value = ListBox2.List(4, 0)
    End If