Dim r0 As Long, r1 As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'При выделении любой ячейки листа, запоминайем
    'номер последней строчки в толбце С
    r0 = 0
    r0 = Cells(Rows.Count, "c").End(xlUp).Row
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    'При изменении любой ячейки листа, запоминайем
    'номер последней строчки в толбце С и  сравниваем
    'его со старым значением r0
    r1 = 0
    r1 = Cells(Rows.Count, "c").End(xlUp).Row
    
    If r1 < r0 Then     'если новое значение меньше предыдущего, значит строчек поубавилось :)
        rt = r0 - r1    'запоминаем сколько строчек удалили
                        'удаляем столько же строчек на листе контроль
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(0).Resize(rt).Delete
    ElseIf r1 > r0 Then 'если новое значение больше предыдущего, значит строчки добавились
    rt = r1 - r0        'запоминаем сколько строчек вставили
                        'вставляем строчки на листе контроль
        Sheets("контроль выполнения графика").Range(Target.Address).Offset(0).Resize(rt).Insert Shift:=xlDown
    End If
                        'копируем значения из диапазона K6:FP1000
    Set Rng = Intersect(Target, Range("O11:AQ" & r1))
    If Not Rng Is Nothing Then
                        'на листе контроль, сдвигаемся на 1 строчку вверх и на 3 столбца вправо
        Sheets("контроль выполнения графика").Range(Rng.Address).Offset(0, 0).Value = Rng.Value
    End If              'копируем значения из диапазона A6:H1000
    Set Rng = Intersect(Target, Range("A11:I" & r1))
    If Not Rng Is Nothing Then
         Sheets("контроль выполнения графика").Range(Rng.Address).Offset(0).Value = Rng.Value
    End If
End Sub