VBA countifs super slow

Hi

I have a long list of order lines which will vary in size from 1000 to 50000+ rows.

Something like this:


Order No: Item Start Time
3000 Phone 30/06/2016 12:12
3000 Memory Card
3000 Cover
3001 Phone
3001 Memory Card
3002 Phone 30/06/2016 11:26
3002 Memory Card
3002 Cover

I need to filter so I see all order lines for the orders that have a start time.

So after my filter I would need to see this:

Order No: Item Start Time
3000 Phone 30/06/2016 12:12
3000 Memory Card
3000 Cover
3002 Phone 30/06/2016 11:26
3002 Memory Card
3002 Cover


My order number is in column E, and my other criteria is in column AA

My idea (which I got from this forum ) was to add a column (AK) with a countifs formula, and since I'm moving some data around later I wanted to copy/paste values.

My code works, but it is very, very slow.

Sub countifs()
    Range("AK2").FormulaR1C1 = "=COUNTIFS(C[-32],RC[-32],C[-10],"">0"")"
    
    
    LastRow = Range("AJ" & Rows.Count).End(xlUp).Row
 
Range("AK2").Copy Range("AK2:AK" & LastRow)


    With Range("AK:AK")
        .Value = .Value
    End With

End Sub

Later in the code I do the actual filtering based on my countifs results, but that part works fine.

Is there a faster way to handle the countifs?

Or is there a different way to filter this?