Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim I As Integer, J As Integer
J = 1
Range("A1:A6").Clear
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
Cells(J, 1) = .List(I)
J = J + 1
End If
Next I
End With
End Sub