Private Sub Workbook_SheetActivate(ByVal Sh As Object)

                ' If Application.CutCopyMode Then
                    ' BuferData = Данные которые были скопированы на страничке в EXEL
                ' End If
    
    With Application
        ' ЗАТЫЧКА. если было выполнено копирование - выход
        ' If .CutCopyMode Then Exit Sub
    
        Set Sh = ActiveSheet
        If (Sh.Name = "НАВИГАЦИЯ") Then Exit Sub
        
        .ScreenUpdating = False
        .EnableEvents = False
        
        Sheets("НАВИГАЦИЯ").Move Before:=Sheets(1)
        Sh.Move Before:=Sheets(2)

        .EnableEvents = True
        .ScreenUpdating = True
    End With
   
                ' If BuferData then
                    ' Вставить обратно данные в буфер
                ' End If

End Sub  

'-------------------------------------------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        
        If Sheets("НАВИГАЦИЯ").Index <> 1 ThenSheets("НАВИГАЦИЯ").Move Before:=Sheets(1)

        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub