Esempio 1)
in questo caso mette tutti i valori selezionati in un array, ovviamente nel tuo caso invece quando lo trova aggiunge all'altra casella
però occhio!!!

Se vuoi mantenere i dati dell'altra casella riepilogo sere una tabella. (magari fai una tabella in cui aggiungi le righe mano a mano e poi la 2^ casella di riepilogo punta a quella tabella)


Dim Array() As Integer 'contiene i codici dei dati scelti
Cod = 0
For i = 0 To (cas_riepilogo.ItemsSelected.Count - 1)
numero_elemento = Me.cas_riepilogo.ItemsSelected(i)
Array(Cod) = Me.cas_riepilogo.ItemData(numero_elemento)
Cod = Cod + 1
Next

Spero di aver capito cosa ti occorre.