Messed up code help

[ginathies8]

This is the macro code that is supposed to hide columns:

Sub DanGourlie()
'
' DanGourlie Macro
' This will show all direct reports training records that Dan G has asked for.
'
' Keyboard Shortcut: Ctrl+Shift+D
'
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
"Gourlie"
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4, Criteria1:= _
Array("New", "Temp", "Yes"), Operator:=xlFilterValues
ActiveWindow.SmallScroll Down:=-24
ActiveWindow.SmallScroll ToRight:=5
Columns("P:Y").Select
Selection.EntireColumn.Hidden = True
Columns("AD:AD").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=5
Columns("AI:AO").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=4
Columns("AR:AR").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=5
Columns("AU:BH").Select
Selection.EntireColumn.Hidden = True
Columns("BK:BK").Select
Selection.EntireColumn.Hidden = True
Range("E10").Select
End Sub

Instead of just the columns above being hidden everything from M-BH is hidden

Any suggestions?
Thank you.

 

[mole999]

Sub DanGourlie()
'
' DanGourlie Macro
' This will show all direct reports training records that Dan G has asked for.
'
' Keyboard Shortcut: Ctrl+Shift+D

   
    On Error Resume Next

    Range("P:Y,AD:AD,AI:AO,AR:AR,AU:BH,BK:BK").EntireColumn.Hidden = True

'
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _
                                                       "Gourlie"
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4, Criteria1:= _
                                                       Array("New", "Temp", "Yes"), Operator:=xlFilterValues


    Range("E10").Select
End Sub

 

[ginathies8]

AWESOME!! That works perfectly! Thank you so much!!