Bom dia fairbanks!

Por favor, verifique se o código abaixo atende o que vc precisa.

Coloquei em anexo um arquivo com a macro já inserida em um botão, caso vc precise testá-la:

Option Explicit
Sub deletar()
    Dim iLastRow As Long
    
    With Sheets("BD")
        .Visible = True
        .Unprotect "B"
        .Select
        iLastRow = .UsedRange.Rows.Count 'Conta o nº de células preenchidas na aba atual
  'MsgBox iLastRow 'teste para verificar se o código buscou a última linha preenchida
        .Rows(iLastRow).Delete 'deleta a linha toda, onde o nº da linha é definido no iLastRow
        .Protect "B"
        .Visible = False
    End With
    
    Sheets("MATRIX").Select
End Sub

Murilo,

Mais uma vez obrigado!
O código atendeu minha necessidade.

Atenciosamente,

Fairbanks