Sort using VBA

Hello
I have the folowing code that sort data

But it is by macro recording .. I want to do it in a profssional way

            Range("A3:I" & LR - 1).Select
            Z.Sheets("Sheet1").Sort.SortFields.Clear
            Z.Sheets("Sheet1").Sort.SortFields.Add Key:=Range("A3:A" & LR - 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With Z.Sheets("Sheet1").Sort
                .SetRange Range("A3:I" & LR - 1)
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With