The following code takes an age! It does work but takes a very long time. 
Any help please

Any help please

Code:
Sub Copy_Paste_Filtered_Selections()'
' Macro3 Macro
'
'
Sheets("Selections").Select
Range("A26:AO124").Copy Sheets("Filtered Selections").Range("A10000").End(xlUp).Offset(2, 0)
End Sub