Runtime error 7 out of memory vba apple mac

I have this macro:

Sub Clean()

'Consulta sobre si ejecutar la macro o no
Dim Resp As Byte
Resp = MsgBox("Deseas borrar todo el contenido de la tabla?", _
    vbQuestion + vbYesNo, "Automation")
If Resp = vbYes Then
    'Borrar contenido
    NumRow = Application.WorksheetFunction.CountA(ActiveSheet.Range("D:D"))
    Range("D16:H1048576").Select
    Selection.ClearContents
    Range("D16").Select
    Sheets("Registro").Select
    Range("B2:C7").Select
    Selection.ClearContents
    Range("A1").Select
    Sheets("Principal").Select
    
'Mensaje
    MsgBox "Se eliminaron " & NumRow - 5 & " queries"

    'Aqu’ se ejecutar’a el c—digo
Else
    MsgBox "Elegiste no limpiar la tabla.", vbCritical, "Automation"
End If



'Sacar filtro
If ActiveSheet.AutoFilterMode Then
    Range("D15").Select
    Selection.AutoFilter
    End If
    
    
    
End Sub

When i use this macro on my desktop computer it works really well, but not in the MacBook Air.


Any ideas of what is going on with the code or why the mac run out of memory?

Thanks a lot!

Try

Sub Clean()

    'Consulta sobre si ejecutar la macro o no
    Dim Resp As Variant
    
    Resp = MsgBox("Deseas borrar todo el contenido de la tabla?", _
        vbQuestion + vbYesNo, "Automation")
    
    If Resp = vbYes Then
        'Borrar contenido
        NumRow = Application.WorksheetFunction.CountA(ActiveSheet.Range("D:D"))
        Range("D16:H" & NumRow).ClearContents
        Sheets("Registro").Select
        Range("B2:C7").ClearContents
        Range("A1").Select
        Sheets("Principal").Select
        
    'Mensaje
        MsgBox "Se eliminaron " & NumRow - 5 & " queries"
    
        'Aqu’ se ejecutar’a el c—digo
    Else
        
        MsgBox "Elegiste no limpiar la tabla.", vbCritical, "Automation"
    
    End If

    'Sacar filtro
    If ActiveSheet.AutoFilterMode Then
    
        Range("D15").AutoFilter
        
    End If
    
End Sub

Thanks a lot Poizhan! But i made a wrong consult, could you help me in this code http://www.excelforum.com/showthread...2#post4468022? Thanks!

I have the same problem with this code:

Sub Filtro()

NumRow = Application.WorksheetFunction.CountA(ActiveSheet.Range("D:D"))
VolumeSum = Application.WorksheetFunction.Sum(ActiveSheet.Range("E:E"))
Dim Cuadro As Range
Set Cuadro = ThisWorkbook.ActiveSheet.Range("D15").CurrentRegion

Tiempo = Now

J = 0

'Proceso de borrado de filas
For I = 2 To NumRow
    If IsEmpty(Cuadro(I, 1)) Then Exit For
    J = J + 1
        For Each Filtro1 In Sheets("Filtro").Range("A2:A60000")
        If IsEmpty(Filtro1) Then Exit For
        If InStr(1, Cuadro(I, 1), Filtro1, vbTextCompare) <> 0 Then
        I = I - 1
        Cuadro(I + 1, 1).EntireRow.Delete
        End If
    Next
    Application.StatusBar = "Queries procesadas: " & J & " de " & NumRow - 5 & "."
    DoEvents
Next I



Application.StatusBar = False

'Mensaje
MsgBox "Quedaron " & NumRow2 - 5 & " queries, se eliminaron " & Worksheets("Registro").Range("B3").Value & ". Filtro hecho en " & Format(Now - Tiempo, "hh:mm:ss")

End Sub

Thanks!