Datos de ListBox a otro ListBox de otro formulario

Espero alguien me pueda ayuda con ese problemita. Tengo un formulario (UserForm1) donde agrego datos agregados en Textbox y ComboBox a un ListBox1, me funciona perfecto ya que agrega los datos en dos líneas en el orden que quiero mediante un botón.

Lo que quiero es AGREGAR o trasladar LOS DATOS YA AGREGADOS EN EL ListBox1 del UserForm1

A otro ListBox2 que se encuentra en otro formulario UserForm2 mediante otro botón.

Este es el código que tengo con el cual logro hacer lo de la imagen:

Private Sub CommandButton1_Click()

'configuramos el listbox para saber cuantas columnas y cuantas filas queremos
Me.ListBox1.ColumnCount = 15
Me.ListBox1.ColumnWidths = "50pt;40pt;35;200pt;120pt;35pt;35pt;100pt;100pt;30pt;30pt;30pt;30pt;20pt;20pt"
'agregamos los items
Me.ListBox1.AddItem
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Me.TextBox1.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Me.TextBox2.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Label7
If TextBox8 = "" And TextBox9 = "" Then
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = "ESF " & Me.TextBox7.Text
Else
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Me.TextBox7.Text & " " & Me.TextBox8.Text & " " & " x " & Me.TextBox9.Text
If TextBox7 = "" Then
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = "CIL " & " " & Me.TextBox8.Text & " " & "x" & Me.TextBox9.Text
Else
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Me.TextBox7.Text & " " & Me.TextBox8.Text & " " & " x " & Me.TextBox9.Text
End If
End If
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Me.ComboBox1.Text & " " & Me.ComboBox2.Text & " " & Me.ComboBox3.Text & " " & Me.ComboBox4.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Me.TextBox13.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Me.TextBox14.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Me.TextBox15.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Me.TextBox16.Text
Me.ListBox1.AddItem
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Me.TextBox1.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Me.TextBox2.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Label8
If TextBox11 = "" And TextBox12 = "" Then
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = "ESF " & Me.TextBox10.Text
Else
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Me.TextBox10.Text & " " & Me.TextBox11.Text & " " & " x " & Me.TextBox12.Text
If TextBox10 = "" Then
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = "CIL " & " " & Me.TextBox11.Text & " " & "x" & Me.TextBox12.Text
Else
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Me.TextBox10.Text & " " & Me.TextBox11.Text & " " & " x " & Me.TextBox12.Text
End If
End If
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Me.ComboBox1.Text & " " & Me.ComboBox2.Text & " " & Me.ComboBox3.Text & " " & Me.ComboBox4.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Me.TextBox13.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Me.TextBox14.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Me.TextBox15.Text
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Me.TextBox16.Text
'
For i = 1 To 13
'Controls("TextBox" & i) = Empty
Next
Me.TextBox1.SetFocus

End Sub

'