Go to Last in Column

[Dave Matthews]

How can I make the the last non empty cell in column "A" active
after Sorting?
Thank

 

[Frank Kabel]

Hi
ActiveSheet.Cells(Rows.count, 1).End(xlUp).select