Private Sub Worksheet_Change(ByVal Target As Range)
Dim byI As Byte
Dim lngJ As Long
Dim strList()
    strList = Array("Лист1", "Лист2", "Лист3") 'задаем массив имен листов, на которых расположены связанные диапазоны
    'отслеживаем изменения только в ОДНОЙ ячейке заданного диапазона,
    'т.е. если изменения в нескольких ячейках сразу
    'или изменяется ячейка, не входящая в диапазон - не сработает.
    If Target.Cells.Count > 1 And Not Intersect(Target, Range("A1:C10")) Is Nothing Then
        Exit Sub
    End If
lngJ = Target.Column
'копируем диапазон (весь) содержащий измененную ячейку
Cells(1, lngJ).Resize(Cells(Rows.Count, lngJ).End(xlUp).Row, 1).Copy
    'проверяем все листы с заданными именами
    For byI = LBound(strList) To UBound(strList)
        'если имя проверяемого листа отличается от активного
        If Worksheets(strList(byI)).Name <> ActiveSheet.Name Then
            'решительно вставляем скопированный диапазон в нужный столбец на проверяемом листе
            With Worksheets(strList(byI))
                .Range(.Cells(1, lngJ).Address).PasteSpecial Paste:=xlPasteAll
            End With
        End If
    Next byI
Application.CutCopyMode = False
End Sub