Does this do what you're asking ?
It's straight from the Macro Recorder.
Code:
Sub Macro1()
'
' Macro1 Macro
'
'
Range("B7:S45").Select
ActiveWorkbook.Worksheets("Floodcoat Workup_Single").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Floodcoat Workup_Single").Sort.SortFields.Add Key _
:=Range("E7:E45"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Floodcoat Workup_Single").Sort
.SetRange Range("B7:S45")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B2:D4").Select
End Sub