Hi Jennifer,

Private Sub cmbSubmit_Click()
Dim i As Long
dim j as long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
For i = 0 To Me.lstData.ListCount - 1
If Me.lstData.Selected(i) Then
for j=0 to me.columns.count-1
ws.Range("Anchor").End(xlUp).Offset(1, j) _
..Value = Me.lstData.List(i,j)
next j
End If
Next i
End Sub

Regards,
Ivan