Private Sub CommandButton3_Click()
Dim L As Integer
Dim C As Byte
Dim i As Byte
With ListBox1
For i = 0 To .ListCount - 1
For C = 2 To 5
If Cells(9, C) = .List(i, 0) Then
L = Cells(5000, C).End(xlUp).Row + 1
Cells(L, C) = .List(i, 0)
Exit For
End If
Next C
Next i
End With