Run time error 1004-Auto filter

Hi again,

Well ,another small but annoying problem with my data.
I have 4 command buttons (A-D) so that the users can update after inputting new or revised Data.
My problem is that if updated in order, button D Macro below stops at the first "Selection.AutoFilter..." as if it cannot turn on the Auto Filter.

It will run if I manually set the AutoFilter on the sheet.

I think, and as I am completely new to this please feel free to correct me, the reason that it stops is that on the Button B is a "AdvancedFilter" Macro.
I have to present this on Wednesday the 14th so any help provided will be gratefully recieved.

Sub manhours()
'
' manhours Macro
' Macro recorded 07/01/2009 by DORIS
'

'
    Sheets("All Intervals").Select
    Application.ScreenUpdating = False
    Range("A15:A164").Select
    Selection.Copy
    Sheets("MH's").Select
    Range("A8").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Tasks").Select
    Selection.AutoFilter Field:=6, Criteria1:="FH"
    Range("F2").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("H1:H806").Select
    Selection.Copy
    Sheets("MH's").Select
    Range("C9").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Intervals").Select
    Range("S15:S34").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("MH's").Select
    Range("F8").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Tasks").Select
    Selection.AutoFilter Field:=6, Criteria1:="FC"
    Range("F47").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("H1:H806").Select
    Selection.Copy
    Sheets("MH's").Select
    Range("H9").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Intervals").Select
    Range("AJ15:AJ94").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("MH's").Select
    Range("K8").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Tasks").Select
    Selection.AutoFilter Field:=6, Criteria1:="EH"
    Range("F250").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("H1:H806").Select
    Selection.Copy
    Sheets("MH's").Select
    Range("M9").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Intervals").Select
    Range("BA17:BA22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("MH's").Select
    Range("P8").Select
    Sheets("All Intervals").Select
    Range("BA15:BA22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("MH's").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Tasks").Select
    Selection.AutoFilter Field:=6, Criteria1:="APU Hrs"
    Application.CutCopyMode = False
    Range("F381").Select
    Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("H1:H806").Select
    Selection.Copy
    Sheets("MH's").Select
    Range("R9").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Intervals").Select
    Range("BR15:BR22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("MH's").Select
    Range("U8").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Tasks").Select
    Selection.AutoFilter Field:=6, Criteria1:="APU CY"
    Application.CutCopyMode = False
    Range("F225").Select
    Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("H1:H806").Select
    Selection.Copy
    Sheets("MH's").Select
    Range("W9").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Intervals").Select
    Range("CI15:CI704").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("MH's").Select
    Range("Z8").Select
    ActiveSheet.Paste Link:=True
    Sheets("All Tasks").Select
    Selection.AutoFilter Field:=6, Criteria1:="Cal"
    Application.CutCopyMode = False
    Range("F4").Select
    Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("H1:H806").Select
    Selection.Copy
    Sheets("MH's").Select
    Range("AA8").Select
    ActiveSheet.Paste Link:=True
    Application.ScreenUpdating = True
    Application.Goto Sheet1.Range("A1"), True
End Sub

I have looked at the other post regarding this error but my list is correctly formatted.

Many thanks in advance.