Pasar todos los Items de un ListBox a una Celda.

Hola Expertos!!!!,

Desearía que alguien me pudiera ayudar con el siguiente tema. Trato de pasar todos los items de un ListBox a una celda especifica la cual se encuentra seleccionada con un filtro. Para ello estoy utilizando:

Private Sub CommandButton3_Click()

Dim celda As Range

For Each celda In Range("I11:L22").SpecialCells(xlCellTypeVisible)
celda = ListBox1.List
Next

End Sub

Con este código solamente me transfiere un solo items del ListBox.

Les ruego me perdonen si cometo algún gazapo soy nuevo en este mundo.

Gracias