Вопрос собственно в чем, есть отчет в который вносят данные разные люди, и кто то удаляет данные другого человека, так вот тут и вопрос, можно ли сделать так чтобы внесенные данные нельзя было удалить, или как минимум что бы они копировались и переносились как копия в другой отчет откуда бы не удалялись если даже их удалили в исходнике
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl As Range
For Each cl In Target.Cells
If Not IsEmpty(cl) Then
If Target.Row + Target.Rows.Count < Rows.Count Then
Cells(Target.Row + Target.Rows.Count, Target.Column).Select
Else
Cells(1, 1).Select
End If
Exit For
End If
Next
End Sub
Эта защита от случайного заполнения, при желании можно обойти.