"porém o código executa excluindo registros acima do selecionado"

O erro ocorre porque a busca é efetuada em uma coluna em que os valores se repetem, então sempre será excluída a primeira linha encontrada. Exemplo: qualquer item que seja selecionado na ListBox a partir da linha 8 da planilha, a linha 8 sempre será a linha excluída.

Para contornar mude a coluna da busca para a coluna C, que é a única em que os valores não se repetem.

Assim altere:

de ~~~> linhalist, 0 para ~~~> linhalist, 2

de ~~~> Range("a:a") para ~~~> Range("C:C")

Boa noite Osvaldomp, te agradeço pela atenção em responder. Seu conhecimento foi fundamental para corrigir problema que eu estava enfrentando. Só mais um ensino se for possível: Nesse caso a ListBox em selecionar apenas um registro está pacificado, porém tentei na propriedade da ListBox em MultiSelectExtended não dá, é possível resolver?

Deus o abençoe grandemente. Gratidão.

Olá, Damiano.

Veja se ajuda.

1. na Propriedade MultiSelect da ListBox1Masc selecione 1-fmMultiSelectMulti

2. no módulo do UserForm remova todos os códigos que atualmente lá estão e cole os 3 códigos abaixo

3. o botão Nota BI existente no UserForm não será utilizado, pode ser removido

Private Sub UserForm_Initialize()
With Me.ListBox1Masc
.ColumnCount = 7
.ColumnWidths = "45;45;170;45;45;45"
.List = ActiveSheet.[A1].CurrentRegion.Value
End With
End Sub

Private Sub ListBox1Masc_Change()
If ListBox1Masc.Selected(0) = True Then
ListBox1Masc.Selected(0) = False
End If
End Sub

Private Sub BtExRegPbdM_Click()
Dim linhalist As Long
For linhalist = ListBox1Masc.ListCount - 1 To 1 Step -1
If ListBox1Masc.Selected(linhalist) Then Sheets("PBD").Rows(linhalist + 1).Delete
Next linhalist
End Sub

Curiosidade: qual o motivo para utilizar um UserForm com o fim de excluir linhas da planilha se a exclusão pode ser feita diretamente na planilha ?

Bom dia, Sobre o motivo de utilzar um UserForm com o fim de excluir linhas é: eu lanço todas informações no form, (Bt copia) dados para plan1, ali é realizado os cálculos, e retorna os valores encontrados no form, estão de acordo com o desejado? (Bt exportar para PBD), para exibir os resultados exportados para plan2(PBD) agindo no (Bt Nota BI), para excluir um ou vários registros(MultiSelect) da Nota BI (plan2) eu seleciono as linhas através do form e daí que surgia os problemas de exclusão de linhas.