How to sort single column (selected)?

I have code like this:

Code:

---

ActiveSheet.Range("A1").Select
' Sort and Autofit the 2nd column in Nemocnice
Selection.CurrentRegion.Offset(, 1).Columns(1).AutoFit
Selection.Range("B:B").Sort Order1:=xlAscending, Header:=xlN

---

The data are in column B, which is selected, and I could not find out how to specify the range for column B. Is it possibly. Would it be even possible to merge this code to one line?

Code:

---

With ActiveSheet
    .Range(.Range("B1"), .Range("B1").End(xlDown)).Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlNo
End With

---

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

Code:

---

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

---