Boa tarde!!
Gostaria de saber porque que no seu exemplo repete tanto, será por conta do valor que seria possivelmente diferente para um mesmo bairro?

Att

Alexandre, pelo que entendi o nome do Bairro é único, e o que varia é o endereço pertencentes ao mesmo, lógicamente poderiamos fazer de outras formas, definindo somente valores por Bairros, mas se o mesmo for selecionar por endereços precisamos de definição dos bairros atrelados ao endereço selecionado.

Edgard, veja se é isto :

Na rotina : Private Sub UserForm_Initialize(), altere For i = 1 para For i = 2, assim desconsideramos a primeira linha, depois acrescente após a instrução : Next i as intruções abaixo, isto forçara sempre o primeiro item no combo :

With ComboBox1
    .ListIndex = 0
End With

Para o Botão Salvar, coloque a rotina abaixo :

Private Sub CommandButton1_Click()

    Dim wsBairros As Worksheet
    Dim i, x As Long
    Dim d As Variant
    Dim sBairro
    Dim sValor
    
    Set wsBairros = Sheets("Banco de Dados")
    
    sBairro = ComboBox1.Value 'Valor selecionado no ComboBox
    sValor = TextBox1.Value 'Valor Digitado no TextBox

    i = 2 'Linha Inicial
    
    'Conta a qde de registros
    x = wsBairros.Range("A1048576").End(xlUp).Row
            
            'Enquanto os Valores da Coluna A forem iguais ao Bairro Selecionado
            Do While wsBairros.Cells(i, 1) = sBairro
                'Altera-se para o Valor Novo
                wsBairros.Cells(i, 2) = sValor
                i = i + 1
            Loop

End Sub

Faça as alterações e qq duvida retorne.

[]s

Boa tarde!!

Mauro, perdoe por está postando eu não testei seu exemplo, se é que eu entendi o que ele quer.

Mas pode ser ajude de alguma forma...ou alguém....

Private Sub CommandButton1_Click()
    Dim nRow As Long, nLastRow As Long
    
    With ThisWorkbook.Worksheets("Base")
        nLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
        For nRow = 2 To nLastRow
            If .Cells(nRow, "A") = ComboBox1.Text Then
                .Cells(nRow, "B") = TextBox1.Text
            End If
        Next nRow
    End With
End Sub