Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim myBar As CommandBar
    Dim myItem As CommandBarControl
    
    Set myBar = CommandBars("Query")
    If Target.Address = "$A$16" Then
        myBar.Reset
        Set myItem = myBar.Controls.Add(Type:=msoControlButton)
        With myItem
            .Caption = "CreateChart"
            .OnAction = "CreateChart"
        End With
        
    Else
        myBar.Reset
    End If
End Sub
Sub CreateChart()
    Dim rng As Range
    Set rng = ActiveCell
    Set rng = rng.Resize(, Worksheets(rng.Parent.Name).Cells(rng.Row, Columns.Count).End(xlToLeft).Column)
    If rng.Count <  2  Then Exit Sub
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=rng, PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = rng.Cells( 1 ,  1 ).Text
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub