Построение графиков VBA без использования ячеек

'имеющиеся массивы
Dim FDates(1 To 100) As Variant
Dim FPays(1 To 100) As Variant
'дальше идет блок кода по заполнению этих массивов. 
....
'построение диаграммы
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = FDates()
ActiveChart.SeriesCollection(1).Values = FPays()
ActiveChart.SeriesCollection(1).Name = "=""ABC"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Results"
With ActiveChart
         .HasTitle = True
         .ChartTitle.Characters.Text = _
         "Шапка диаграммы"
         .Axes(xlCategory, xlPrimary).HasTitle = True
         .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "EFG"
         .Axes(xlValue, xlPrimary).HasTitle = True
         .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "HIJ"
End With
ActiveChart.HasLegend = False

Public A() As Integer ' объявляем массив
 
Sub test()
    Dim i, n
    Randomize ' инициализируем ГСЧ
    n = InputBox("Введите количество элементов массива", "Требуется ввод данных!", 10)
    ReDim A(n - 1)
    For i = 0 To n - 1
        A(i) = Int(100 * Rnd + 1) ' заполняем случайными числами в диапазоне от 1 до 100
    Next i
    ActiveSheet.ChartObjects.Delete
    With Charts.Add
        .ChartType = xlLine
        With .SeriesCollection.NewSeries
            .Values = A
            .Name = "A(x)"
        End With
        .Location Where:=xlLocationAsObject, Name:="Лист1"
    End With
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "A(x)"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "X"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "A"
    End With
    Range("A1").Select
End Sub