Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim LOt As ListObject
Set LOt = Target.ListObject
If LOt Is Nothing Then Exit Sub
If Intersect(LOt.TotalsRowRange, Target) Is Nothing Then Exit Sub
Application.Goto Intersect(Target.EntireColumn, LOt.ListRows.Add.Range)
Cancel = True
End Sub