Excel - filtros y VB

Hola a tod@s
tengo un problema con los filtros y una macro. Resulta que he grabado una macro haciendo un filtro para ver el codigo y poder meterlo en un bucle y a la hora de correrlo en la macro no hace el filtro. Lo que quiero hacer es copiar lo filtrado a otra hoja. Este es el código, a ver si alguien me puede echar una mano.

Sheets("Hoja2").Select
Columns("D:D").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>#¡VALOR!", Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Hoja1").Select
Range("A50").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

GRACIAS

Sheets("Hoja1").Select
Range("A50").Select

Luego de esta instrucción:

activesheet.pastespecial..........

Saludos,
Fernando

hola guihe,

Ten en cuenta que la Macro la debes colocar en un modulo de VB y no en donde colocas el codigo para las hojas, si te falla durante la ejecución, puede que sea eso, por lo demás, ya probe tu codigo y funciona bien!

Saludos!!!