Dante Amor respondió:
H o l a: Te anexo la macro actualizada Sub Filtrar() 'Act.Por.Dante Amor Sheets("BD").Cells.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("B3:B4"), CopyToRange:=Range("B7:G8"), Unique:=False Sheets("BD").Cells.AdvancedFilter...