vba code to create chart and fix the axis of the chart

Hi All,

i am creating chart with the help of macro.
every time data changes( values and number of rows and columns)
whenever there is less then 3 row data chart changes its axis, and i have to switch row/column.
Please help how to get rid of this problem.
Below is the code

Sub Chart()
Dim R As Integer

Dim rngChtData As Range
Dim rngChtXVal As Range
     
     Range("L2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Set rngChtData = Selection
    With rngChtData
        Set rngChtXVal = .Columns(1).Offset(1).Resize(.Rows.Count - 1)
    End With
    
    ActiveSheet.Shapes.AddChart.Select
    
     ActiveChart.SeriesCollection(1).Select
    ActiveChart.ChartType = xlCylinderColStacked
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels
    ActiveSheet.ChartObjects("Chart 1").Activate
   ActiveChart.SeriesCollection(2).Select
    ActiveChart.SeriesCollection(1).Interior.Color = RGB(0, 153, 64)
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(2).ApplyDataLabels
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    Selection.ClearFormats
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveSheet.ChartObjects("Chart 1").Activate
    
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    Selection.Delete
    ActiveChart.Axes(xlValue).Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).MinimumScale = 0
    ActiveSheet.ChartObjects("Chart 1").Chart.Export C