Cancella riga in una tabella

Salve a tutti, dovrei risolvere un problema in un tabella eliminare la riga selezionata. ho una tabella, con nome tabella1 è possibile quando seleziono una cella nella colonna A allinterno della tabella1 tramite un pulsante eliminare la riga nella tabella. Su internet ho trovato degli spunti solo, che si agisce su doppio clik.Allego il file e il codice che dovrei modificare e far funzionate tramite un pulsante e richiamare una Sub cancella_Riga. sperto che qualcuno mi possa aiutare.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'OK Funziona controllo se si clikka sulla colonna AA

Dim x As Integer

x = ActiveCell.Row
Dim CellaAttiva As Range

Set CellaAttiva = ActiveCell
If Intersect(CellaAttiva, Range("A:A")) Is Nothing Then Exit Sub

If Intersect(Target, Range("Tabella1")) Is Nothing Then Exit Sub

If MsgBox(" Operazione Irreversibile" & vbCrLf & vbCrLf & "Stai Per Eliminare La Riga" + Str(x) & vbCrLf & " Vuoi continuare ?", vbCritical + vbYesNo, " ATTENZIONE ELIMINAZIONE RIGHA") = vbYes Then
Sheets("Foglio1").Unprotect Password:="Pippo"


ActiveCell.Delete
Sheets("Foglio1").Protect Password:="Pippo"
End If

'Range("A4").Select


End Sub

avresti potuto provarci da solo, non è difficile

Grazie patel per aver risposto, il risultato che dovrei ottenere è che solo se seleziono nella colonna A della Tabella1 mi deve cancellare la riga altrimenti se seleziono in altri pumti nel foglio di lavoro la macro non deve essere eseguita, deve uscire dalla sub senza cancellare nulla.

qualche esperto in vba che sappia come posso risolvere il problema?
Spero che qualcuno mi possa aiutare a risolvere il peoblema, grazie a tutti.

Grazie per l'aiuto