Listbox hücrelere veri aktarma

[YILDIZ YAĞMURU]

aşağıdaki kod ile listbox a tıkladığımda C4 hücresine satırdaki veriyi gönderiyor.

fakat ben listbox un 2. ve 3. sütunlarında hangi satıra tıklarsam o satırdaki verileri C4 ve D4 verilerine aktarmak istiyorum.
sadece bu iki hücreye . yani altalta devam etmeyecek her tıkladığımda aynı hücrelere aktaracak. yardımcı olurmusunuz

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Sheets("Sayfa1").Range("C4") = ListBox1.Text

End Sub

 

[Orion1]

Buyurunuz.

Sheets("Sayfa1").Range("C4") = ListBox1.Column(0)
Sheets("Sayfa1").Range("D4") = ListBox1.Column(1)