Why does this not work?
Sub Macro1()
'
' Macro1 Macro
LR = Cells(Rows.Count, "A").End(xlUp).Row
SN = ActiveSheet.Name
Cells.Select
ActiveWorkbook.Worksheets(SN).Sort.SortFields.clear
ActiveWorkbook.Worksheets(SN).Sort.SortFields.Add Key:=Range("A1:A" & LR) _
...