Public Sub Workbook_Open()

Application.ScreenUpdating = False

Dim a As Range
Dim aa As Range
Set a = Worksheets("1. Расчет расходов").Range("D13:D70")
Set aa = Worksheets("Резерв").Range("D13")
a.Copy
aa.PasteSpecial Paste:=xlPasteValues

Dim b As Range
Dim bb As Range
Set b = Worksheets("1. Расчет расходов").Range("D8")
Set bb = Worksheets("Резерв").Range("D8")
b.Copy
bb.PasteSpecial Paste:=xlPasteValues

Dim c As Range
Dim cc As Range
Set c = Worksheets("1. Расчет расходов").Range("F13:I70")
Set cc = Worksheets("Резерв").Range("F13")
c.Copy
cc.PasteSpecial Paste:=xlPasteValues

Dim d As Range
Dim dd As Range
Set d = Worksheets("1. Расчет расходов").Range("AA13:AA70")
Set dd = Worksheets("Резерв").Range("AA13")
d.Copy
dd.PasteSpecial Paste:=xlPasteValues

Dim e As Range
Dim ee As Range
Set e = Worksheets("1. Расчет расходов").Range("D76:D94")
Set ee = Worksheets("Резерв").Range("D76")
e.Copy
ee.PasteSpecial Paste:=xlPasteValues

Dim f As Range
Dim ff As Range
Set f = Worksheets("1. Расчет расходов").Range("F76:L94")
Set ff = Worksheets("Резерв").Range("F76")
f.Copy
ff.PasteSpecial Paste:=xlPasteValues

Dim g As Range
Dim gg As Range
Set g = Worksheets("1. Расчет расходов").Range("M76:Z94")
Set gg = Worksheets("Резерв").Range("M76")
g.Copy
gg.PasteSpecial Paste:=xlPasteValues

Dim h As Range
Dim hh As Range
Set h = Worksheets("1. Расчет расходов").Range("AA76:AA94")
Set hh = Worksheets("Резерв").Range("AA76")
h.Copy
hh.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub


Public Sub Workbook_BeforeClose(Cancel As Boolean)
 
Application.ScreenUpdating = False

aa.Copy << выдает ошибку run-time error '424'
a.PasteSpecial Paste:=xlPasteValues

bb.Copy
b.PasteSpecial Paste:=xlPasteValues

и т.д. 

Application.CutCopyMode = False

aa.ClearContents << не очищает диапазон, выдает ошибку
или 
bb.Clear << не очищает диапазон, выдает ошибку


и т.д. 

Application.ScreenUpdating = True

End Sub

Private Sub Workbook_Open() 

For Each sh In ActiveWorkbook.Worksheets 'отображаем все листы 
   sh.Visible = True 
Next sh 
Worksheets("Предупреждение").Visible = xlSheetVeryHidden  'скрываем лист ПРЕДУПРЕЖДЕНИЕ 

Worksheets("Реестр изменений").Rows("2:2").Insert Shift:=xlDown 'вставляем между строками 1 и 2 новую строку 
Worksheets("Реестр изменений").Rows("1001:1001").Delete Shift:=xlUp 'удаляем строку 1001 (реестр на 1000 строк) 
Worksheets("Реестр изменений").Cells(2, 1) = Environ("USERNAME") 'запись в первую ячейку второй строки 
Worksheets("Реестр изменений").Cells(2, 2) = Now 'запись во вторую ячейку второй строки 
ActiveWorkbook.Save 

End Sub 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

Worksheets("Реестр изменений").Rows("2:2").Insert Shift:=xlDown 'вставляем между строками 1 и 2 новую строку 
Worksheets("Реестр изменений").Rows("1001:1001").Delete Shift:=xlUp 'удаляем строку 1001 (реестр на 1000 строк) 
Worksheets("Реестр изменений").Cells(2, 1) = Environ("USERNAME") 'запись в первую ячейку второй строки 
Worksheets("Реестр изменений").Cells(2, 3) = Now 'запись в третью ячейку второй строки 
  
End Sub 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    
   If Not Me.Saved Then 

       fmQueryClose.Show 

       Select Case fmQueryClose.DialogResult 
           Case VbMsgBoxResult.vbYes: Me.Save 
               Worksheets("Предупреждение").Visible = True 'скрываем все листы, кроме листа ПРЕДУПРЕЖДЕНИЕ 
               For Each sh In ActiveWorkbook.Worksheets 
                   If sh.Name = "Предупреждение" Then 
                       sh.Visible = True 
                   Else 
                       sh.Visible = xlSheetVeryHidden 
                   End If 
               Next sh 
               ActiveWorkbook.Save 
           Case VbMsgBoxResult.vbNo: Me.Saved = True 
                
>>>> Тут как раз и нужен код на откат всех изменений <<<< 

               Worksheets("Предупреждение").Visible = True 'скрываем все листы, кроме листа ПРЕДУПРЕЖДЕНИЕ 
               For Each sh In ActiveWorkbook.Worksheets 
                   If sh.Name = "Предупреждение" Then 
                       sh.Visible = True 
                   Else 
                       sh.Visible = xlSheetVeryHidden 
                   End If 
               Next sh 
               ActiveWorkbook.Save 

           Case VbMsgBoxResult.vbCancel: Cancel = True 
            
       End Select 
       Unload fmQueryClose 
   End If 
End Sub 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.Undo
    Application.Undo
    Application.Undo
    Application.Undo
    Application.Undo
End Sub