sorting method

[Forestq]

Hi,

I have sort function - now only by column B.
I want to have sort by column B,C,D. How can I add it to below code?

x_row_sort = wsSORT.Cells(Rows.Count, "A").End(xlUp).Row    
Dim oneRange, aCell As Range
Set oneRange = wsSORT.Range("A1:CT" & x_row_sort)
Set aCell = wsSORT.Range("B1")

oneRange.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlYes