Copy filtered rows in one worksheet and paste to other worksheet

Friends,
Totally new to the Excel VBA or Macros. Was just doing first Macro where I want to filter rows in one worksheet and copy them to other worksheet but macro copies all the row to other work sheet. Please see below and guide. Thanks for your help.

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveSheet.Range("$A$1:$Q$480").AutoFilter Field:=9, Criteria1:= _
        "<25/01/2013", Operator:=xlAnd
      Rows("2:480").Select
    Selection.Copy
    Sheets("Filter BL Date").Select
    Range("A2").Select
    ActiveSheet.Paste