добавлять и удалять элементы (предложения) в выпадающем списке с помощью поиска в листе vba_excel

Question

я использую комбинированный список для поиска в листе и элементах в зависимости от набора букв

добавление работает с увеличением строки с количеством элементов

, но удаление элементов, не соответствующих значению comobox, не работаетЯ использую для каждого, но проблема со значением элемента в этом для

сообщение об ошибке:

не удалось получить свойство списка. недопустимый индекс массива свойств

Private Sub customer_name_Change()
    Dim i As Integer, x As Integer, Rng As Range
    Set Rng = database.Range("A3", database.Range("A" & database.Cells(database.Rows.count, "A").End(xlUp).Row))
    Dim Item As Integer

    With Me.customer_name
        For i = 3 To database.Cells(database.Rows.count, "A").End(xlUp).Row
            If .Text <> "" Then
                If LCase(Left(database.Cells(i, "A"), Len(.Text))) = LCase(.Text) Then
                    x = Application.WorksheetFunction.CountIf(Rng, database.Cells(i, "A"))
                     If x = 1 Then
                        .AddItem Cells(i, "A")
                        .ListRows = .ListCount
                     End If
                End If
            Else
                .Value = ""
                .clear
                .ListRows = 0
            End If
        Next i
        .DropDown

      If .ListCount > 2 Then
          For Item = 0 To .ListCount

             If LCase(Left(.List(Item), Len(.Text))) <> LCase(.Text) Then
                  .RemoveItem Item
                  .ListRows = .ListCount
             End If

          Next
      End If

    End With
End Sub