График VBA

[Dubineanschi]

При добавлении нового столбика с данными мне приходится изменять код
Sub UpdateChart()
Dim TheChartObj As ChartObject
Dim TheChart As Chart
Dim UserRow As Long
Dim CatTitles As Range
Dim SrcRange As Range
Dim SourceData As Range

If Sheets("Дубинянский В.").CheckBox1 Then
Set TheChartObj = ActiveSheet.ChartObjects(1)
Set TheChart = TheChartObj.Chart
UserRow = ActiveCell.Row
If UserRow < 3 Or IsEmpty(Cells(UserRow, 1)) Then
TheChartObj.Visible = False
Else
Set CatTitles = Range("A2:x2")
Set SrcRange = Range(Cells(UserRow, 1), Cells(UserRow, 27)) +1
Set SourceData = Union(CatTitles, SrcRange)
TheChart.SetSourceData _
Source:=SourceData, PlotBy:=xlRows
TheChartObj.Visible = True
End If
End If
End Sub
нельзя ли автоматом, при добавлении данных, график обновлялся сам не меняя код при каждом вводе. Спасибо !

[slan]

ну и определите, допустим, lastcolumn=cells(userrow,columns.co unt).end(xltoleft).column