Error de falta de memoria al ejecutar el script de perforación más detallada.

El objetivo de la macro es evitar crear una nueva hoja de cálculo cada vez que un usuario hace doble clic o profundiza en un valor de tabla dinámica. En cambio, el script copia los datos a una hoja dedicada llamada “DrillDown”.

Después de varios clics, obtengo un error de Excel que indica que me he quedado sin memoria.

El conjunto de datos sin procesar no es muy grande. Me pregunto si hay algún problema con el script, o tal vez necesito agregar algo más. ¿Tal vez hay algunos datos temporales que necesito borrar primero?

Mi código:

Módulo1

Public CS$

Este libro:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
If CS <> "" Then
    With Application
        ScreenUpdating = False
        Dim NR&
        With Sheets("DrillDown")

        'Establecer esto para comenzar siempre en la parte superior de la página
        NR = 1
        '.. y para borrar la pestaña Drilldown ..
        .Cells.ClearContents

        'en lugar de esto ..
        'If WorksheetFunction.CountA(.Rows(1)) = 0 Then
        '   NR = 1
        'Else
        '   NR = .Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 2
        'End If

        Range("A4").CurrentRegion.Copy .Cells(NR, 1)

    End With
    .DisplayAlerts = False
    ActiveSheet.Delete
    .DisplayAlerts = True
    'A continuación, se comentó para evitar que el usuario vuelva a la tabla dinámica
    ' Sheets(CS).Select
.ScreenUpdating = True
End With
End If
End Sub