Excel - Macro

Sub FILTRO()

'

' FILTRO Macro

'

'

    ActiveWindow.ScrollColumn = 4

    ActiveWindow.ScrollColumn = 3

    ActiveWindow.ScrollColumn = 2

    ActiveWindow.ScrollColumn = 1

    Sheets("Datos").Range("A8:T200").AdvancedFilter Action:=xlFilterCopy, _

        CriteriaRange:=Range("A3:T4"), CopyToRange:=Range("A7:T7"), Unique:=False

    Range("A4:T4").Select

    Selection.ClearContents

    Range("A4").Select

End Sub

Sub FILTRO()

    Dim rango As Range

    Set rango = Sheets("Datos").Range("A8:T200")

    rango.AdvancedFilter Action:=xlFilterCopy, criteriarange:= _

    Sheets("Datos").Range("A3:T4"), copytorange:=Sheets("Hoja2").Range("A7"),unique:=False'aqui no se donde los quieras pegar

    ' aqui me imagino que los criterios estan en la hoja Datos en el rango que pones("A3:T4)

    'recuerda que en la fila 3 de los criterios van los encabezados de la tabla y tienen que ser exactamente iguales

    'la fila 4 es para los criterios de busqueda

    Sheets("Datos").Range("A4:T4").ClearContents

End Sub