макрос на добавление строки при условии

[KApSuL]

спасибо, помогло, но не полностью

    Set R = Intersect(Sheets("òàáë2").Range("3:" & Br4.Offset(-1).Row), Sheets("òàáë2").Range("B:B, H:H, I:I"))
ActiveChart.SetSourceData Source:=R

работает но тогда пропадают значения
B65:B68,H65:H68,I65:I68
пытаюсь сделать что-то наподобие

Set S = Intersect(Sheets("òàáë2").Range("65:" & OLD.Offset(-3).Row), Sheets("òàáë2").Range("B:B, H:H, I:I"))

и применить

ActiveChart.SetSourceData Source:=Range("R,S")

но ничего не выходит
помогите пожалуйста

[DiemonStar]

Это можно сделать так:

Set R = Union(Sheets("òàáë2").Range("3:" & Br4.Offset(-1).Row), Sheets("òàáë2").Range("65:" & OLD.Offset(-3).Row))

Set R = Intersect(R, Sheets("òàáë2").Range("B:B, H:H, I:I"))
ActiveChart.SetSourceData Source:=R

и сколько Вам можно говорить, что нельзя так использовать переменные:

Range("R,S")

сделайте просто:

Union(R,S)

а заключать значения переменных в кавычки нельзя - это будет восприниматься как обычная строка и не более.

[KApSuL]

спасибо
проблема просто была в незнании слова Union