Como excluir o Registro Atual em VBA

Boa Noite Galera, estou mais uma vez aqui para dar aquela ajudinha em Excel VBA, hoje estaremos exluindo a linha atual do registro. Então vamos lá.

Sub Excluir()
Dim confirmar As Variant
confirmar = MsgBox("Deseja Excluir o Registro: " & ActiveCell.Value & " Sim ou Não", vbYesNo + vbQuestion, "Excluir?")
    If ActiveCell.Row = 1 Then
        MsgBox "Você não pode excluir a linha do Cabeçalho", vbCritical
    Else
         If confirmar = vbYes Then
             Selection.EntireRow.Delete
         Else
         End If
    End If
End sub

agora é só adicionar no Botão e ir para a galera.