Erwin Ferreira

Sub Ordenar_Rangovariable() Range("E19").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Add Key:=Range(Selection,...