Acumular valor Listbox " Luis Mondelo "

Hola Luis, me funcionó perfectamente.

pero ahora  me ha surgido un problema, si quisiera acumular dentro de ese listbox el valor de la columna 6 para después mostrarlo en Listbox2.

Gracias y saludos de antemano

Private Sub UserForm_Initialize()
'por luismondelo
Sheets("datos").Select
Range("a2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.EntireRow.Hidden = False Then
ListBox1.AddItem ActiveCell
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = ActiveCell.Offset(0, 1)
ListBox1.List(i, 2) = ActiveCell.Offset(0, 2)
ListBox1.List(i, 3) = ActiveCell.Offset(0, 3)
ListBox1.List(i, 4) = ActiveCell.Offset(0, 4)
ListBox1.List(i, 5) = ActiveCell.Offset(0, 5)
ListBox1.List(i, 6) = ActiveCell.Offset(0, 6)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub