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..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 ?

Deus o abençoe grandemente. Gratidão.

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")