Macro help

Hello,

i use a macro for filering my data into another

and macro code is

Sub Extract1()
'
' Extract1 Macro
' extract
'
' Keyboard Shortcut: Ctrl+Shift+R
'
    Rows("61:116").Select
    Selection.Delete Shift:=xlUp
    Range("A61").Select
    Sheets("Data").Range("A1:Q600").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Data").Range("S1:S2"), CopyToRange:=Range("A61"), _
        Unique:=False
    Rows("59:114").Select
    Selection.EntireRow.Hidden = True
    Range("A4").Select
End Sub

but when workbook is shared it throws some sort of error
Run-time error '1004':

AdvancedFilter method of Range class failed