Sort to Last Row

[deduwa]

Hi - I have a headed table with dynamic number of rows and columns. I want to sort rows alphabetically ascending in column B.

I have already used to establish the last row;

Dim lastRow As Long
lastRow=Cells(Rows.Count,"B").End(xlUp).Row

I want sort column B alphabetically starting in row 2 and ending in lastRow

Thanks

 

[shg]

  ActiveSheet.UsedRange.Sort Key1:=Range("B1"), Header:=xlYes

 

[deduwa]

Thanks - that works. What does the 'UsedRange' mean?

 

[shg]

It's the rectangular range that includes all the non-empty cells on a worksheet.