Sort Sheet by Column B
Dim lRow As Long
lRow = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2:D" & lRow ).Sort key1:=Range("B2:B" & lRow ), order1:=xlAscending, Header:=xlNo ' Sort A2:DLRow by Column B
https://stackoverflow.com/questions/21451458/vba-excel-sort-range-by-specific-column