Runtime error 7 out of memory vba apple mac

I have this macro:

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

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!

Upon review, it is noted that although the member's question is the same, the code is completely different so this is not a duplicate. I have re-opened the thread. --6StringJazzer

I know that the MacbookAir has a limited memory and that loop is pretty long

Try this

'Proceso de borrado de filas

For I = NumRow To 2 Step - 1
    If IsEmpty(Cuadro(I, 1)) Then Exit For
    J = J + 1
    If WorksheetFunction.CountIf(Sheets("Filtro").Range("A2:A60000"), "*" &  Cuadro(I, 1) & "*") <> 0 Then
        Cuadro(I, 1).EntireRow.Delete
    End If
    Application.StatusBar = "Queries procesadas: " & J & " de " & NumRow - 5 & "."
    DoEvents
Next I