Excel - Filtro con Macro

Hola buen dia, me pueden apoyar por favor, necesito configurar una macro para q filtre.

El problema es que necesito q sea un criterio variable es decir necesito que se filtre segun lo q este escrito en
RANGE("D5") y no lo q dice Criterial "1"

como pueden ver tengo la informacion en la hoja llamada parque, una hoja donde quiero q este el boton q colocare para filtrar llamada Home, y otra hoja donde quiero q la informacion quede filtrada llamada "filtro"



Gracias.

probá cambiando Criteria1:="1" por Criteria1:=RANGE("D5").Value

Hola muchas gracias por tu respuesta, auq aun no ha quedado correcto, lo coloque como me indicaste pero como q no detecta el numero ahora simplemente ejecuta el filtro sin ningun criterio.

Coloco la macro. <(te comento q modifique de d5 a c3)

Sub Macro1()
'
' Macro1 Macro
'

'
Range("c3").Select
Selection.Copy
Sheets("Parque").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$GO$57569").AutoFilter Field:=2,

Criteria1:=Range("c3").Value

Rows("1:1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("Filtro").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Home").Select
Range("A7").Select

End Sub

Yo lo haría Así

Sub Macro1()
Dim filtro As String
filtro = InputBox("Criterio Columna A")
ActiveSheet.Range("$A:$C").AutoFilter Field:=1, Criteria1:="=" & filtro, Operator:=xlAnd
MsgBox ("Filtro: " & filtro & " realizado")
End Sub


Donde:
1.- "filtro" es una variable para almacenar el texto del filtro
2.- "$A:$C", son las columnas de la tabla a filtrar
3.- "=" & filtro, es el criterio utilizado, Esto es: Igual al texto ingresado en "filtro"
4.- "xlAnd", operador igual

Saludos

Muchas gracias!! me funciono muy bien.

Exelente tu explicacion, estoy muy agradecido ya estaba frustrado pues cuando empiezas a sentirte comodo con el excel siempre sale un nuevo reto.

Saludos.

Por eso excel es para planillas... para programar tienes la libertad de los lenguajes de programación.

Saludos.