' ZVI:2015-06-21 http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&TID=67174
' Копировать только значения.
' Код поместить в модуль ЭтаКнига

Dim IsCopyMode As Boolean

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim a
  If Not IsCopyMode Then Exit Sub
  a = Target.Value
  With Application
    .EnableEvents = False
    .Undo
    Target.Value = a
    .EnableEvents = True
  End With
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  IsCopyMode = Application.CutCopyMode = xlCopy
End Sub

    For Each cell In Target
       If Not Intersect(cell, Range("B3:AE3")) Is Nothing Then
            With cell.Offset(0, 20)
               .Value = Date
            End With
       End If
    Next cell
End Sub

Dim IsCopyMode As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  IsCopyMode = Application.CutCopyMode = xlCopy
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a
If Not IsCopyMode Then Exit Sub
For Each cell In Target
    If Not Intersect(cell, Range("B3:AE3")) Is Nothing Then
        a = cell.Value
        With Application
            .EnableEvents = False
            .Undo
            cell.Offset(0, 20).Value = Date
            cell.Value = a
            .EnableEvents = True
        End With
    End If
Next cell
End Sub