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