Bubble Chart with 5 dimensions

You need to build multiple series based on conditional formula.

Thanks for the feedback.

I was able to create the charts in code, but after runing the code a few times, my spreadsheet becomes corrupted and will not save. I have not done any coding and relied on the macro record to get the most of it written. Can someone take a quick look and give me a few tips? I really appreciate it. Thanks.

Sub Chart()
'
' Chart Macro
' Inserts bubble chart at cell AG1.
'
    Sheets("Status").Select
    Application.Goto Reference:="R1C33"
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlBubble3DEffect
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "='Status'!$S$2"
    ActiveChart.SeriesCollection(1).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(1).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(1).BubbleSizes = "='Status'!$S$3:$S$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "='Status'!$T$2"
    ActiveChart.SeriesCollection(2).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(2).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(2).BubbleSizes = "='Status'!$T$3:$T$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(3).Name = "='Status'!$U$2"
    ActiveChart.SeriesCollection(3).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(3).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(3).BubbleSizes = "='Status'!$U$3:$U$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(4).Name = "='Status'!$V$2"
    ActiveChart.SeriesCollection(4).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(4).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(4).BubbleSizes = "='Status'!$V$3:$V$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(5).Name = "='Status'!$W$2"
    ActiveChart.SeriesCollection(5).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(5).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(5).BubbleSizes = "='Status'!$W$3:$W$50"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(6).Name = "='Status'!$X$2"
    ActiveChart.SeriesCollection(6).XValues = "='Status'!$O$3:$O$50"
    ActiveChart.SeriesCollection(6).Values = "='Status'!$M$3:$M$50"
    ActiveChart.SeriesCollection(6).BubbleSizes = "='Status'!$X$3:$X$50"
    ActiveChart.SetElement (msoElementLegendBottom)
    ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
    ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
    ActiveChart.ClearToMatchStyle
    ActiveChart.ChartStyle = 26
    ActiveChart.ClearToMatchStyle
    ActiveChart.ApplyChartTemplate ("C:\Users\JudyR\AppData\Roaming\Microsoft\Templates\Charts\FinancialImpact.crtx")
    ActiveChart.ChartTitle.Caption = "Status"
    
    With ActiveChart.Axes(xlValue)
        .HasTitle = True
        With .AxisTitle
            .Caption = "Number of Days Outstanding"
        End With
    End With
    
    With ActiveChart.Axes(xlCategory)
        .HasTitle = True
        With .AxisTitle
            .Caption = "Percent of FS Sales Impacted"
        End With
    End With
    
    ActiveChart.ChartArea.Width = 700
    ActiveChart.ChartArea.Height = 450