Excel - Listbox a listbox con condicionales

Hola ricaurtem te escribe Hernán Camilo Martinez, desarrollo Macros en Excel necesito lo siguiente por fa:

Tengo dentro de una hoja en excel los siguientes registros :

Bitmap

CLAVE Casa Blanca
Proyecto A Casa Blanca
Capítulo 1 Actividades Preliminares
Análisis 1,10 Cerca de alambre pua y tabla
Insumo 23 Arena de peña
Insumo 26 Arena de revoque
Capítulo 2 Decapote - retiro
Análisis 2,10 Cerca de alambre pua y tabla
Análisis 2,20 Retiro


en un listbox llamado (ListBox1) que tengo dentro de una UserForm filtro los capitulos

es decir que dentro del listbox1 aparecen "Actividades Preliminares" y "Descapote- retiro"

lo que deseo es que al dar clic sobre Actividades preliminares me muestre los Análisis en un listbox2 que tengo dentro de la misma Userform para ese caso seria que me muestre dentro de la ListBox2 "Cerca de alambre pua y tabla"....y que al dar clic sobre el registro que esta dentro del listbox1 llamado "Decapote-retiro" me muestre dentro del listbox2 "Cerca de alambre pua y tabla" y "Retiro".

tengo el siguente codigo pero no me sale bien:


Private Sub ListBox1_Click()
Dim i, j, k As Integer
Dim r
j = 1
i = 1

For k = ListBox1.Selected(i) To ListBox1.ListCount + 1
For i = 1 To 1000
If Cells(i, j) = "Análisis" Then
Me.ListBox2.Value = Cells(i, j + 4)
End If

Next i
Next k

End Sub



Gracias por su ayuda!

Exitos y bendiciones!
Att. Hernán Camilo

Intentalo de esta otra manera


Private Sub ListBox1_Click()
Dim Texto as string
Dim i, j, k As Integer
Dim r
j = 1
i = 1

Texto = ListBox1.text

Dim i, j, k As Integer
Dim r
j = 1
i = 1

For k = ListBox1.ListIndex To ListBox1.ListCount +1
For i = 1 To 1000
If Cells(i, j) = "Análisis" Then
Me.ListBox2.AddItem(Cells(i, j + 4))
End If

Next i
Next k

End Sub