Hola

Hice una macro que me filtra lo que contiene "ATO" en la columna H; si hay, se borran las filas el problema es que cuando bajo mi reporte y no hay "ATO" la macro me borra el titulo, es el mismo caso para la parte donde borra lo que contenga "DUMMY". Si alguien me puede ayudar a solucionar este error estare muy agradecido.

Adjunto una porcion del archivo para mejor referencia.

Sub MacroPrueba()

    strArchivo = Application.GetOpenFilename( _
        FileFilter:="Excel Files (*.xlsx), *.xlsx", _
        FilterIndex:=1, _
        Title:="Select: rptProductionCTO")
        If strArchivo = False Then Exit Sub
        Workbooks.OpenText Filename:=strArchivo
        Application.ScreenUpdating = False
        'Borrar ATO's y Dummy's: Aqui es donde tengo el error
        Columns("H:H").Select
        ActiveSheet.Range("$A$1:$AE$2000").AutoFilter Field:=8, Criteria1:="=*ATO*" _
        , Operator:=xlAnd
        finx = Range("A2000").End(xlUp).Row
        Rows("2:" & finx).Select
        Selection.Delete Shift:=xlUp
        Selection.AutoFilter
        Columns("H:H").Select
        ActiveSheet.Range("$A$1:$AE$2000").AutoFilter Field:=8, Criteria1:="=*DUMMY*" _
        , Operator:=xlAnd
        finx = Range("A2000").End(xlUp).Row
        Rows("2:" & finx).Select
        Selection.Delete Shift:=xlUp
        Selection.AutoFilter

 

Archivo de prueba.xlsx

   If finx > 1 Then Rows("2:" & finx).Delete Shift:=xlUp

' en lugar de

  'Rows("2:" & finx).Select
  'Selection.Delete Shift:=xlUp

en lugar de

 

Muchas Gracias!
Es justo lo que necesitaba.