Copiar datos de un cuadro de lista

Quisiera copiar los datos que yo seleccione de este cuadro de lista active x

y pegarlos en una tabla

Y luego que los datos del cuadro de lista quede sin selección.