Программирование в среде VBA

Question

Вот собственно в чем вся муть.. . 
 
1. Вывести все значения функции Y(x) = cos(2x) + tg2(x) c заданным интервалом Х ПРИНАДЛЕЖИТ [-1, 0,8] и шагом изменения аргумента ДЕЛЬТА х = 0,12. 
2. Построить график заданной функции. Добавить подпись данных на ось х и надпись к диаграмме. 
 
Код к задаче №1 есть: 
Sub YYY() 
Cells.ClearContents 
Cells(1, 1) = "X" 
Cells(2, 1) = "Y" 
xx = -1 
kk = 2 
While (xx <= 0.8) 
Cells(1, kk) = xx 
Cells(2, kk) = Cos(2 * xx) + Tan(2 * xx) 
xx = xx + 0.12 
kk = kk + 1 
Wend 
End Sub 
 
Нужна помощь с продолжением, с задачей №2

Гюляр Гейдарли · Accepted Answer

Range("B2:B17").Select 'выбираешь столбец у, возможно не нужно 
 ActiveSheet.Shapes.AddChart.Select ' создаешь таблицу 
 ActiveChart.ChartType = xlLine 'тип таблицы 
'настройка данных 
 ActiveChart.SetSourceData Source:=Range("Лист1!$B$2:$B$17") 
 ActiveChart.Axes(xlCategory).Select 
 ActiveChart.SeriesCollection(1).XValues = "=Лист1!$A$2:$A$17"