Thanks for your help guys! This is going to help me no end at work. I truly appreciate you giving up your time to help.

Norie I moved the module into the correct project (at least i think i have lol) Overstocks fixed by Parth and Norie.xlsm

Otherwise heres the code 

Option Explicit

Sub Brand2()
'
' Brand2 Macro
' Sort A-Z for brand

'
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub Category()
'
' Category Macro
' Sort Category a-z
'

'
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Add Key:= _
        Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub Quantity()
'
' Quantity Macro
' Sort Quantity Highest to Lowest
'

'
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Add Key:= _
        Range("C1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub IST()
'
' IST Macro
' Sort Z-A
'

'
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Add Key:= _
        Range("D1"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub Date1()
'
' Date1 Macro
' Lowest First
'

'
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort.SortFields.Add Key:= _
        Range("E1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Overstocks").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Thanks again guyss, I hope i can contribute back to the forum one day