How to sort single column (selected)?

[vangog]

I fixed the problem, there was typo in xlN => xlNo and missing key1... seems not to be optional argument.

ActiveSheet.Range("A1").Select
' Sort and Autofit the 2nd column in Nemocnice
Set DataColumn = Selection.CurrentRegion.Offset(1, 1).Columns(1)
DataColumn.AutoFit
DataColumn.Select
Range(DataColumn.Address).Sort Order1:=xlAscending, Key1:=Range(DataColumn.Offset(-1).Address), Header:=xlNo
Selection.CurrentRegion.Offset(, 1).Columns(1).AutoFit