Нужно добавить заголовок для диаграммы из файла отчета из сводной таблицы с помощью VBA

Question

Я пытаюсь создать диаграммы из сводной таблицы. Здесь В этой сводной таблице у меня есть год на вкладке фильтра отчетов. Когда я выбираю какой-либо год из опции фильтра, я хочу, чтобы этот год был отражен на диаграмме. Мой код приведен ниже:

Range("B7:L7").Offset(i).Select
        Worksheets("Visual Dashboard").Select
        With ActiveSheet.Shapes.AddChart
            With .Chart
                .ChartType = xlColumnClustered
                .SetSourceData Source:=Range("Pivot!$A$1:$L$7").Offset(i)

                .ShowValueFieldButtons = False
                .HasTitle = True
                .ChartTitle.Text = "Consolidated "

Сейчас .ChartTitle.Text = "Consolidated " в этой строке я хочу добавить эту опцию фильтра года, чтобы всякий раз, когда я выбирал какой-либо конкретный год, этот год отражался в заголовке диаграммы.

Я не знаю, как решить эту проблему?