Dim r0 As Long, r1 As Long
Private Sub Worksheet_Change(ByVal Target As Range)
'при изменении на листе происходит обновление информации по количеству строк на листе КОНТРОЛЬ
    r1 = Cells(Rows.Count, "c").End(xlUp).Row

'сравнение количества строк на 2-х листах
    If r1 < r0 Then 'если на листе контроль меньше строк значит удаляем
    rt = r0 - r1 'определяем разницу строк, чтобы понять сколько строк удалить
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1).Resize(rt).Delete
    ElseIf r1 > r0 Then 'если на листе контроль больше строк значит добавляем
    rt = r1 - r0 'определяем разницу строк, чтобы понять сколько строк добавить
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1).Resize(rt).Insert Shift:=xlDown
    End If
    
    Sheets("график производства").Range("a6:h1000").Copy 'копируем диапазон
    Sheets("контроль выполнения графика").Range("a5").PasteSpecial xlPasteValues 'вставляем только значения можно вставить все xlPasteAll
    On Error Resume Next
    If Not Intersect(Target, Range("I6:AJ1000")) Is Nothing Then
        'на листе контроль, сдвигаемся на 1 строчку вверх и на 3 столбца вправо
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(-1, 3).Value = Target.Value
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'при любом выделении на листе происходит обновление информации по количеству строк на листе график
    r0 = Cells(Rows.Count, "c").End(xlUp).Row
End Sub