Añadir datos al final de un listbox con datos cargados desde otro botón

En un formulario cargo los datos de un listbox mediante un botón(btn_mostrar), (hasta aquí todo correcto) el problema me llega cuando aparte de los datos que cargo con el botón dicho antes tengo que añadir un dato extra.

Añadí a mi formulario otro botón(btn_iten) para introducir más datos a ese listbox pero los datos se escriben unos encima de otros

Private Sub btn_mostrar_Click()

Dim Fila, Final As Integer

Fila = 2
For Fila = 2 To Final
If Me.txt_equipo = Hoja7.Cells(Fila, 1) Then
Exit For
End If
Next
If Me.txt_equipo.Value = Empty Then
Me.ListBox1.Clear
End If
Me.ListBox1.Clear

items = Hoja7.Range("equipos").CurrentRegion.Rows.Count
For i = 2 To items
If LCase(Hoja7.Cells(i, 1).Value) Like "*" & LCase(Me.txt_equipo.Value) & "*" Then
Me.ListBox1.AddItem Hoja7.Cells(i, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Hoja7.Cells(i, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Hoja7.Cells(i, 4)
End If
Next i
Exit Sub

End Sub

Private Sub btn_iten_Click()

Me.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "115pt;50pt;50pt;"
Me.ListBox1.AddItem Me.cbo_tarea.Text
Me.ListBox1.List(k, 1) = Me.cbo_diametro.Value
Me.ListBox1.List(k, 2) = Me.cbo_sch.Text
k = k + 1
End Sub