Sub Macro1()
'
' Macro1 Macro
'
'
Range("B6:C55").Select
ActiveWorkbook.Worksheets("S-Wilk Test").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("S-Wilk Test").Sort.SortFields.Add Key:=Range("B6") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("S-Wilk Test").Sort
.SetRange Range("B6:C55")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub