You can add this code to a button:
Sub Sort()
'Sort data on Tire shipments based on MSPN
Sheets("Sheet2").Select
Range("B4:R61000").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("D4:D61000"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Reposition back on Enter
Sheets("Sheet1").Select
End Sub