Ayuda Urgente con macro

Mira necesito tu ayuda urgentemente, lo que pasa es que tengo 2 columnas una con fechas y la otra con numero, cuando copio una macro, y dentro de ella ejecuto un filtro entre fechas, si me funciona la primera vez y cuando quiero volver a correrla no me da ningún dato, no se si sea por el formato de celda o algo tenga que ver, ¿me puedes ayudar?
En días anteriores ya había quedado pero no se que moví, y ya no me da nada
me urge tu ayuda.
Gracias.
Sub Macro5()
'
' Macro5 Macro
' Macro grabada el 23/12/2008 por David Graciano S.
'
'
Range("A1").Select
Selection.AutoFilter
Range("B1").Select
Selection.AutoFilter Field:=1, Criteria1:=">=01/01/2008", Operator:=xlAnd _
, Criteria2:="<=31/12/2008"
Range("A1:B6").Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B13").Select
Sheets("Hoja1").Select
Range("B14").Select
Selection.AutoFilter
Range("E25").Select
End Sub