Hi,
I've been using a code to find,copy and paste cells containing one of multiple criteria in Excel 2007 and it worked fast and perfectly.
Then after an hard disk failure and having to reinstall the OS I decided to upgrade to Excel 2010.
It still SEEMS to run fast but AFTER all the data I need have been copied/pasted the program freezes for 6-7 seconds during which I can't click any cell.
For half of those seconds the mouse icon spins as if Excel was processing something, then it turns back to its usual shape but it still doesn't let me click anywhere for sometime.
This is a big problem since this code is part of a bigger one that repeats itself for hundreds of times so losing 6-7 seconds each time really slows the process to the point it becomes useless.
Here's the code:

Sub CopiaIncollaOperatore1Numero12()
Dim strArray As Variant
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim NoRows As Long
Dim DestNoRows As Long
Dim I As Long
Dim J As Integer
Dim rngCells As Range
Dim rngFind As Range
Dim Found As Boolean
    strArray = Array("*td**shirtnumber*", "*href**players**class**flag*", "*RC.png*", "*YC.png*", "*OWN.png*", "*G.png*", "*Y2C.png*", "*substitute**out*")
    Set wsSource = Sheets(2)
    NoRows = wsSource.Range("A5000").End(xlUp).Row
    DestNoRows = Sheets(3).Range("A200").End(xlUp).Row + 1
    Set wsDest = Sheets(3)
    For I = 1 To NoRows
    Set rngCells = wsSource.Range("A" & I & ":A" & I)
    Found = False
    For J = 0 To UBound(strArray)
    Found = Found Or Not (rngCells.Find(strArray(J)) Is Nothing)
    Next J
    If Found Then
    rngCells.Copy wsDest.Range("A" & DestNoRows)
    DestNoRows = DestNoRows + 1
    End If
    Next I
End Sub
I tried to install a trial Copy of Excel 2013 but in that version the problem not only is not resolved but it gets really worse.
For comparison: a "cycle" of the bigger code in Excel 2007 ran in 16 seconds, in Excel 2010 in 23 seconds, in Excel 2013 in 35-40 seconds.
Note that if I run the code asking it to search for just one criteria everything runs fast without any lags.
But unfortunately that's not what I need.
Is there a way to speed up my code?
Thanks in advance