Filter,Copy and Paste VBA

[Rompetelo]

Hi all,

I have just started doing my first macro, it's basically a macro that filters, copies and pastes. But I have a problem, i get this error and I dont know what to do. Can anyone have a look at it and tell me what I have done wrong? I get this error "application defined or object defined error"
Thank you,

Daniel

Sub requiredchanges()
Sheets("All customers").Activate
Rem multiple problems
ActiveSheet.Range("$A$1:$AQ$11000").AutoFilter Field:=3, Criterial:="TRUE"
Range("A3", "E3:I3").Select
Range(Slection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Moderator Edit:

Welcome to the forum, Rompetelo.

Please notice that [CODE] tags have been added to your post. The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at the top of the page and read Rule #3.
Thanks.