Есть диаграмма - строится с помощью такаго кода:
красным отмечен край диапазона (крайнияя правая ячейка в таблице)- я пытаюсь сделать его динамическим - чтоб макрос сам искал последнее значение!

Думал чтото вроде этого
While Len(sh_dann.Cells(32, 4)) <> 0
q = q + 1
Wend

но оно не работает
скорее всего голова у меня не из того места растет - может поможет кто?


Sub график()
Set sh_dann = ThisWorkbook.Sheets("рабочий")
Set sh_nastr = ThisWorkbook.Sheets("рабочий")

sh_dann.Activate

Set graf_dann = Range(sh_dann.Cells(11, 1), sh_dann.Cells(32, 14))

obl = False
For i = 13 To 95
If sh_dann.Cells(i, 1) = True And sh_dann.Cells(i, 2) = True Then
If obl = False Then

Set graf_dann = Range(sh_dann.Cells(12, 3), sh_dann.Cells(12, 14))
Set graf_dann = Union(graf_dann, Range(sh_dann.Cells(i, 3), sh_dann.Cells(i, 14)))
obl = True
Else
Set graf_dann = Union(graf_dann, Range(sh_dann.Cells(i, 3), sh_dann.Cells(i, 14)))
End If
End If
Next i

If obl = False Then
MsgBox ("Не выбранных филиалов.")
Exit Sub
End If

Set sh_graf = ThisWorkbook.Sheets("Общ. портфель")

sh_graf.Activate
ActiveSheet.ChartObjects (5)

sh_dann.Activate
graf_dann.Select

sh_graf.Activate
ActiveSheet.ChartObjects(5).Chart.SetSourceData Source:=graf_dann, PlotBy:=xlRows
ActiveSheet.ChartObjects(5).Chart.Axes(xlCategory).TickLabels.NumberFormat = "dd/mm/yy"
sh_graf.Activate

Application.Calculate

End Sub

спасибо - попробую

строка
Set graf_dann = Range(sh_dann.Cells(12, 3), sh_dann.Cells(12, 14))
выбирает диапазон по оси Х - там даты
и если сделать
Set graf_dann = Range(sh_dann.Cells(12, 3), sh_dann.Cells(12, sh_dann.Columns.Count).End (xlToLeft))
вроде выделяется весь диапазон (с добавленными ячейками)- но график не расширяется на добавленные ячейки (хотя они и выделяются и в свойствах диаграммы диапазон расширяется)
что неправильно?

сейчас прикреплю

воть
только не бейте ногами - я только учусь

Спасибо!!!!!
работает!!!!
а насчет ног - я не программист и вынужденно этим занимаюсь - а многие просто отправляют читать хелп (хотя я с него и начинаю), хелп это конечно хорошо там много всего интересного, я могу там пол дня просидеть, но!
без практического примера иногда фиг догадаешься какой оператор использовать...... вот.
Короче спасибо за терпение и помощь!