Soru ListBox'ta Olan Verinin İstenilen Sayfaya Kaydedilmesi

[TURKOLOG]

Herkese Merhaba aşağıdaki kodarla Listbox2'deki veriyi Aktif sayfata kaydedebiliyorum.
Benim İstediğim Listbox2'deki veriyi Sayfa28'e kaydetmek istiyorum.
Kodu nasıl revize edebilirim.
Yardım edebilecek olan var mı acaba

Mecut Kodlar

Private Sub CommandButton2_Click()
With ListBox2
        For a = 0 To .ListCount - 1
            
      
                Range("A65536").End(3)(2, 1) = .list(a, 0)
                Range("B65536").End(3)(2, 1) = .list(a, 1)
                Range("C65536").End(3)(2, 1) = .list(a, 2)
                Range("D65536").End(3)(2, 1) = .list(a, 3)
                Range("E65536").End(3)(2, 1) = .list(a, 4)
            
            
      
      Next a
      End With
    a = Empty

 
End Sub

 

[muygun]

Merhaba;

Sheets("Sayfa28").Range("A65536").End(3)(2, 1) = .list(a, 0)
...
...
şeklinde düzenleme yaparak deneyin.
İyi çalışmalar.

 

[Orion1]

Buyurun.

Sheets("Sayfa28").Range("A65536").End(3)(2, 1) = .list(a, 0)

 

[TURKOLOG]

Sayın @Orion1 ve Sayın @muygun emeğinize sağlık çok teşekkür ederim.