Anyway to shorten "Sort A -> Z" VBA code?

[Chris Macro]

Is there any way to simplify this code?

Steps:
1. put in filter on table (specified by range)
2. sort alphabetically on column A
3. take off filter


Code:

<font face=Calibri><SPAN style="color:#007F00">'Sort Table 1 Alphabetically</SPAN><br>LastRow_T1 = Sheet5.Cells(Rows.Count, "A").End(xlUp).Row<br><br>Sheet5.Range("A4:L" & LastRow_T1).AutoFilter<br>    Sheet5.AutoFilter.Sort.SortFields.Clear<br>    Sheet5.AutoFilter.Sort.SortFields.Add Key _<br>        :=Sheet5.Range("A4:A" & LastRow_T1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _<br>        :=xlSortTextAsNumbers<br>    <SPAN style="color:#00007F">With</SPAN> Sheet5.AutoFilter.Sort<br>        .Header = xlYes<br>        .MatchCase = <SPAN style="color:#00007F">False</SPAN><br>        .Orientation = xlTopToBottom<br>        .SortMethod = xlPinYin<br>        .Apply<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    Sheet5.Range("A4:L4").AutoFilter</FONT>

 

[shg]

Maybe ...

    Sheet5.Range("A4").CurrentRegion.Sort Key1:=Range("A4"), _
                                          DataOption1:=xlSortTextAsNumbers, _
                                          Header:=xlYes

 

[Chris Macro]

I need to have the sort done in a specified range because there is another table below it that I don't want included in the sort. Will your suggestion work with that in mind?

 

[shg]

CurrentRegion will only work if the range you want to sort is bounded on all sides by blank rows or columns or an edge of the sheet -- which is kind of good practice anyway.

 

[Chris Macro]

Thanks that worked out perfectly! I did have to add in a "sheet5" to the other range though, because I am running the macro on a different sheet.

Code:

<font face=Calibri>Sheet5.Range("A4").CurrentRegion.Sort Key1:=Sheet5.Range("A4"), _<br>                                          DataOption1:=xlSortTextAsNumbers, _<br>                                          Header:=xlYes</FONT>

 

[shg]

I did have to add in a "sheet5" to the other range though,

My bad, good catch.