Grafik çizdirmek için kaydettiğim makro hata veriyor

[meltem_zor]

Sub Makro1()
'
' Makro1 Makro
'

'
Range("A2").End(x1Down).Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Grafik_Verisi!$A$2:$A$3")
End Sub

a2den itibaren eklenen verilerde bir grafik oluşturmak istiyorum fakat veriler güncelleştiği için hangi hücreye kadar grafik çizilecek kesin değil bunu nasıl belli edebilirim.
teşekkür ederim şimdiden

 

[AdemCan]

A sütunundaki son dolu hücre numarasını bularak yapılır.
son = ActiveSheet.Cells(Rows.Count, "A").End(3).Row bu satır A sütunundaki son dolu hücrenin satır numarasını alır.

Sub Makro1()
'
' Makro1 Makro
'
'Range("A2").End(x1Down).Select

son = ActiveSheet.Cells(Rows.Count, "A").End(3).Row
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Grafik_Verisi!$A$2:A" & son)
End Sub