Macro-Eliminar fila de una tabla según celda activa.

En una hoja de Excel tengo más de una tabla (Rangos con formato de tabla), (Cada rango tiene su nombre de Tabla) y necesito que una macro elimine la fila de esa tabla donde se seleccione una celda.

Encontré este código pero lo que hace es eliminar la fila 2 de la tabla. Yo necesito que elimine la fila de la celda que este activa en ese momento.

El código es este:

Sub DeleteARow()
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").ListRows(2).Delete
End Sub

Cual seria la modificacion para obtener el resultado que necesito.