Sub Tri_Dates()
Dim Lg As Long, OldFormat As String
Application.ScreenUpdating = False
Lg = Range("B" & Rows.Count).End(xlUp).Row
OldFormat = Range("B3").NumberFormat
Range("B3:B" & Lg).NumberFormat = "0"
'Range("B3:K" & Lg).Select
Range("B3:K" & Lg).Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3:K" & Lg).NumberFormat = OldFormat
Application.ScreenUpdating = True
End Sub