Listbox 3Spalten

Ich will aus einem Bereich mit Hilfe einer Listbox Zellen in einen anderen Bereich Übertragen. Dies habe ich auch mit folgender Formel geschafft.

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 5
ListBox1.RowSource = "a1:e4"

ListBox1.ControlSource = "b6"
ListBox1.BoundColumn = 1

End Sub

Es gelingt mir aber immer nur mit einer Zelle. Kann ich das auch so gestalten das ich zwei oder mehrer Zellen Übertragen kann?

Würde mich über Hilfestellung freuen.

Grüße

Peter