pitcher_ respondió:
Disculpa la demora en contestar, pero no tenia tiempo. Mira pega este código: Sub Puesto() Ciclo = Range("E65535").End(xlUp).Row Range("A2:E" & Ciclo).Select Selection.Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1,...