Взаимосвязь ячеек на множестве листов

[grinics]

Добрый день!
Подскажите уважаемые знатоки VBA, какой макрос можно применить.
Ситуация такая.
Есть Лист1 как основной с базовой информацией об артикулах в столбе B (наименование в столбце C и т.д.). В нем каждая позиция пронумерована в столбце A. На Лист1 собраны все позиции из всех листов. Общее число позиций не менее 500, до 1000. На каждом листе от 5 до 300-500 позиций. Листов более 20-ти.
Столбцы на всех листах имеют одинаковый порядок, бланки листов идентичны.
При изменении артикула в колонке B на любом из листов нужно менять значение во всех остальных листах на новое в строках с номером соответствующим номеру в колонке A. Номера строк естественно уникальные.
Таких столбцов (артикул, наименование, и пр.) от 4 до 10.
Строки желательно перемещать вверх, вниз, неважно, главное к номеру позиции из колонки A привязаться.
Проверил один скрипт из форума:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "B3" Then Target.Offset(1, 0).Value = Target.Value * 1
If Target.Address(0, 0) = "B4" Then Target.Offset(-1, 0).Value = Target.Value / 1
Application.EnableEvents = True
End Sub

Он правильно работает, только обрабатывает 2 определенные ячейки на одном листе.
Можете помочь запилить такую систему?

[Администратор]

Написал вам письмо на почту. Написал именно на почту, а не на форум.