Elsa Matilde respondió:
Te adjunto la macros ajustada. Sub AUTOFILTRO() 'ajustada x Elsamatilde ' AUTOFILTRO Macro ' ' Acceso directo: Ctrl+Mayus+S 'fin del rango según col A ultima = Range("A65536").End(xlUp).Row 'columna de la celda activa col = ActiveCell.Column...