aşağıdaki kod işinize yarayabilir, yeni kitap açıp ilk sayfaya yapıştırır

   arr = ListBox1.List

   Dim wb As Workbook

Set wb = Workbooks.Add

wb.Sheets(1).Range("A2").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arr