asaroma respondió:
Prueba esto ami no me arrojo errores: Dim row3, row4, col As Double row3 = 10 row4 = 11 col = 1 Range(Cells(row3, col), Cells(row4, col)).Select Selection.Sort Key1:=Range(Cells(row3, col), Cells(row4, col)), Order1:=xlDescending, header:=xlNo, _...