Ciao
puoi collegarla ad un pulsante
oppure se cancelli una cella della colonna A (facoltativa) puoi usare quella che vuoi
utilizzare
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ripristina
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
If Target = "" Then
Target.EntireRow.Delete
End If
End If
ripristina: Exit Sub
End Sub
ecco che come cancelli una cella della colonna A la riga viene eliminata
al limite puoi usare il doppio click
al doppio click su una cella ti elimina la riga
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
Application.EnableEvents = True
End Sub