Boa noite!!

Exemplo

Sub teste()
Selection.EntireRow.Delete
End Sub

Boa noite!!

Segue outro exemplo
Dê retorno

Sub Click_na_Mãozinha()
Dim iRet As Integer
    Dim strPrompt As String
    Dim strTitle As String
  strPrompt = "Quer deletar a linha, OK?"
     strTitle = "Deletando Linha"
       iRet = MsgBox(strPrompt, vbYesNo, strTitle)
    If iRet = vbNo Then
      Exit Sub
    Else
        ActiveCell.EntireRow.Delete
    End If
   
End Sub

At++++

Veja se ajuda a dica do Eron :

Como Fazer: Macro para excluir Linhas
viewtopic.php?f=16&t=2443&p=10614&hilit=deletar#p10614

[]s