Butona tıklayınca listboxa veri çekmek

[uyecik]

Merhaba arkadaşlar,
Ben aşağıda gösterdiğim şekilde verileri listbox'da gösterebiliyorum ama bunun için 4 defa butona basmam gerekiyor. Neden bu şekilde oluyor tek tıklamayla bu iş yapılabilir mi?
ListBox1.AddItem
ListBox1.List(0, 0) = ActiveCell.Offset(0, 15).Value
ListBox1.List(1, 0) = ActiveCell.Offset(0, 16).Value
ListBox1.List(2, 0) = ActiveCell.Offset(0, 17).Value
ListBox1.List(3, 0) = ActiveCell.Offset(0, 18).Value

 

[Emir Hüseyin Çoban]

.

    s = 15
    For i = 0 To 3
        ListBox1.AddItem
        ListBox1.List(i, 0) = ActiveCell.Offset(0, s).Value
        s = s + 1
    Next i

.

 

[uyecik]

.

    s = 15
    For i = 0 To 3
        ListBox1.AddItem
        ListBox1.List(i, 0) = ActiveCell.Offset(0, s).Value
        s = s + 1
    Next i

.

Sayın Emir Hüseyin Çoban,
Yardımınız için çok teşekkür ederim.