Hi, tsiddiq23,

welcome to ExcelForum. You maybe need to reduce the raneg to only the visible rows. While being in Excel, choose the range via Mouse, hit F5, press the left button (I only have a local german version, should read either Contents or options), choose visible cells from there, the press CTRL+Copy.

Using VBA you can use SpecialCells(xlCellTypeVisible) for reducing the range:
Sub Macro2a()
'
' Macro2 Macro
'

'
With ActiveSheet
    .Range("$A$1:$Q$480").AutoFilter Field:=9, Criteria1:="<25/01/2013", Operator:=xlAnd
    .Range("$A$2:$Q$480").SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Filter BL Date").Select
Range("A2").Select
ActiveSheet.Paste
End Sub
If there aren´t any formulas in the data you could use the destination directly after the Copy like
.Range("$A$2:$Q$480").SpecialCells(xlCellTypeVisible).Copy Sheets("Filter BL Date").Range("A2")
Could you please put code tags around the macro you´re showing? Thanks in advance.

Ciao,
Holger