Sub SortData()
Dim SortColumn As Integer, LastColumn As Integer
Dim LastRow As Long
LastColumn = Range("A1").End(xlToRight).Column
LastRow = Range("A65536").End(xlUp).Row
On Error GoTo ErrorHandler
SortColumn = Rows("1:1").Find(What:="Division", _
LookAt:=xlWhole).Column
On Error GoTo 0
Range(Cells(1, 1), Cells(LastRow, LastColumn)).Sort _
Key1:=Range(Cells(1, SortColumn).Address(False, False)), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Exit Sub
ErrorHandler:
MsgBox prompt:="Could not find a header labelled DIVISION" _
& Chr(13) & "Data was not sorted", _
Buttons:=vbCritical + vbOKOnly
End Sub