listboxtaki verileri boş satıra yollamak

[fedeal]

Private Sub CommandButton2_Click()
Set s1 = Sheets("sayfa2")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List
End Sub

listboxtaki verileri boş satıra yollamak istiyorum.

SDS = Sheets("sayfa2").Range("A65536").End(xlUp).Row
BS = SDS + 1
bukodu uyarlamaya calıştım ama beceremedim.ilgi ve yardımlarınız için şimdiden teşekkürler.