Использование range.find для создания диаграммы - VBA

I имеет код, который ищет число в диапазоне (столбец A, который включает объединенные ячейки) из текстового поля пользовательской формы, а затем создает график на основе этого числа. У меня возникли проблемы с добавлением правильных значений оси. На основе этого найденного числа будет создан график со значениями справа от числа в столбце A.

Столбцы A и B будут осью x, а C, D, F - осью y.

Любая помощь будет принята с благодарностью.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim ws As Worksheet: Set ws = Sheets("Trend")
Dim LastRow As Long, partnum As String, findpart As Range
Dim partChart As Chart
Dim chartWorkSheet As Worksheet

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
partnum = TextBox1.Value


If Not Application.IsNA(Application.Match(partnum, Range("A:A"), 0)) Then
    Set findpart = Cells(Application.Match(partnum, Range("A:A"), 0), 1)

    ActiveWorkbook.Charts.Add

    With ActiveWorkbook.ActiveChart
        .ChartType = xlColumnClustered
        .SeriesCollection.NewSeries
        .SeriesCollection(1).Name = "QTY Left"
        .SeriesCollection(1).XValues = "Trend!"

'''                'Titles
'''                .HasTitle = True
'''                .ChartTitle.Characters.Text = "Scatter Chart"
'''                .Axes(xlCategory, xlPrimary).HasTitle = True
'''                .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text=*emphasized text*"X values"
'''                .Axes(xlValue, xlPrimary).HasTitle = True
'''                .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Y values"
'''                .Axes(xlCategory).HasMajorGridlines = True
'''
'''                'Formatting
'''                .Axes(xlCategory).HasMinorGridlines = False
'''                .Axes(xlValue).HasMajorGridlines = True
'''                .Axes(xlValue).HasMinorGridlines = False
'''                .HasLegend = False
''
    End With
Else
    MsgBox ("Part Number Not Found!")
End If

Unload Me

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub