Column Remains selected after Macro is selected

[Livin404]

Greetings,
I have the following vba and it works find; however after the macro is activated it leaves the first column A selected. Is there something I can do, to remove the appearance of it being selected.
The VBA is:

Sub AoutboundSort()
'
' AoutboundSort
''
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Air Outbound").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Air Outbound").Sort.SortFields.Add2 Key:=Range _
        ("A1:A1048576"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Air Outbound").Sort
        .SetRange Range("A1:A1048576")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.RefreshAll
End Sub

Thank you very much indeed.

 

[Michael M]

Remove the columns "A:A" .select

  Sub AoutboundSort()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    ActiveWorkbook.Worksheets("Air Outbound").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Air Outbound").Sort.SortFields.Add2 Key:=Range _
        ("A1:A" & lr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Air Outbound").Sort
        .SetRange Range("A1:A" & lr)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.RefreshAll

 

[Livin404]

Perfect thank you,

 

[Michael M]

Glad to help. .?

 

[Livin404]

Remove the columns "A:A" .select

  Sub AoutboundSort()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    ActiveWorkbook.Worksheets("Air Outbound").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Air Outbound").Sort.SortFields.Add2 Key:=Range _
        ("A1:A" & lr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Air Outbound").Sort
        .SetRange Range("A1:A" & lr)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.RefreshAll

Hello, I initially thought it worked. It did get rid of the "selection" appearance. However, the formula did not sequence the dates Column A by Oldest to Newest. Mine did work, but I had the issues with the first column appearing selected.

 

[Michael M]

The changes should have no effect on the sorting !
BUT as an alternative try

Sub AoutboundSort()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    ActiveWorkbook.Worksheets("Air Outbound").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Air Outbound").Sort.SortFields.Add2 Key:=Range _
        ("A1:A" & lr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Air Outbound").Sort
        .SetRange Range("A1:A" & lr)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.RefreshAll
range("A1").select

 

[Livin404]

Hello, I'm afraid it's not sequencing it. My original formal is working, it is just leaving Column A selected. Maybe I can type in Range ("A1"). Select at the end. I hope that will work. You've been very patient, thank you.

 

[Michael M]

I put that into the code on the latest post #6

 

[Livin404]

Thank you, I’m so annoyed with myself, I’m getting the first column to resequence by oldest to Newest, but the other 8 or 9 Columns are not. When I recorded the macro I did ask it to extend the columns. This is used for a database which I’m putting it into a pivot table, thus my refresh and ensuring all entries are in order which is why I have the sort option. Thank you