Вставка новой строчки с автоматическим добавлением

[G0SHA]

Доброго всем дня!
В приложении таблица- пример, в которой мне бы хотелось, чтоб при добавлении новой строки в первой странице, она добавлялась во второй и третьей страницах, с возможностью изменения значений каждой странице по отдельности, если есть вообще такая возможность- помогите
Заранее спасибо
P.S.Есть один вариант, выделить через ctrl все три страницы и потом добавить строку или любой текст и он добавится на всех выделенных страницах.... увы такой вариант не подходит, нужна автоматика

[IgorGO]

этот

Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then Cancel = True: AddRow Target.Row: Target.Offset(0, 2).Select
End Sub

в модуль каждого из листов (Water, Gas, Elect)
а этот

Sub AddRow(r As Long)
  Dim L As Long, c As Long
  c = Cells(r, 2).End(xlDown).Row - r + 2
  For L = 1 To 3
    With Worksheets(L)
      .Rows(r).Insert shift:=xlDown
      .Cells(r, 2).Resize(c, 1).FormulaR1C1 = "=r[-1]c+1"
      .Cells(r, 2).Resize(c, 1).Copy: .Cells(r, 2).PasteSpecial Paste:=xlValues
    End With
  Next
End Sub

в обычный модуль
и сохраните файл в формате с поддержкой макросов.
удачи!

[IgorGO]

да...
новая строка вставляется двойным кликом по ячейке в 1-й колонке перед строкой, по которой кликнули

[G0SHA]

Сообщение от IgorGO

да...
новая строка вставляется двойным кликом по ячейке в 1-й колонке перед строкой, по которой кликнули

Что то не получается добавить ячейку,можете глянуть, если я все правильно сделал, если все правильно, укажите пожалуста, пошагово, как её добовлять.

[IgorGO]

см. вложение

[G0SHA]

Сообщение от IgorGO

см. вложение

еще не тестировал как следует, но вроде то что нужно.
спасибо большое!