Невозможно переместить таблицу на скрытый лист в событии Workbook_SheetBeforeDelete

Question

У меня есть модуль с кодом VBA, который перемещает таблицу с одного скрытого листа на видимый. Этот код выполняется всякий раз, когда определенный лист копируется в рабочую книгу (Workbook_SheetActivate) и всякий раз, когда я удаляю этот лист (Workbook_SheetBeforeDelete).

Вот мой код движущейся таблицы:

Sub toggleResults()
    Const sInicio = "Inicio"
    Dim sDestino As String
    Dim status As Boolean
    Dim ws As Worksheet
    Set ws = Sheets("Inicio")

    status = SheetIsProtected(ws)
    If status = True Then
        ws.Unprotect
    End If

    With Range("Resumen_Res[#All]")
        If .Parent.Name = sInicio Then
            sDestino = "HideTable"
        Else
            sDestino = sInicio
        End If

        .Cut Destination:= _
            Sheets(sDestino).Range(.Cells(1).Address)
    End With

    If sDestino = "HideTable" Then
        With ThisWorkbook.Worksheets(sInicio).Range("K14:N16").Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.599993896298105
            .PatternTintAndShade = 0
        End With
    End If

    If status = True Then
        ws.Protect
    End If
End Sub

Для Первая часть работает отлично, после копирования листа код перемещается на главный лист, но всякий раз, когда я удаляю лист, эта часть не будет работать, не показывая никаких ошибок или предупреждений:

.Cut Destination:= _
        Sheets(sDestino).Range(.Cells(1).Address)