Private Sub CommandButton2_Click()
Dim I As Integer, y As Integer
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
y = y + 25
Range("d" & y).Value = .List(I)
Range("e" & y).Value = .List(I, 1)
Range("f" & y).Value = .List(I, 2)
Range("g" & y).Value = .List(I, 3)
Range("h" & y).Value = .List(I, 4)
Range("i" & y).Value = .List(I, 5)
Range("j" & y).Value = .List(I, 6)
End If
Next I
End With
End Sub