عدم اجرای یک فایل ماکرو نویسی شده در دو سیستم متفاوت

با سلام
من یه کد ماکرو نویسی کردم ، توی سیستم خودم اجرا میشه بدون خطا، اما در سیستم های دیگه اجرا نمیشه ایراد کد من چیه ممنون میشم بهم جواب بدین
کدمن:
Sub Macro9()

'

' Macro9 Macro

'

'

Range("G6").Select

Sheets("database").Select

Range("A1:P1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$P$1000000").AutoFilter Field:=16, Criteria1:="51"

Columns("A:P").Select

Selection.Copy

Sheets("outputmashmul51").Select

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

''Range("Q2").Select

''Application.CutCopyMode = False

''Selection.AutoFill Destination:=Range("Q2:Q508")

''Range("Q2:Q508").Select

Dim numRows As Long

numRows = Cells(Rows.Count, 1).End(xlUp).Row

Range("Q2").Select

Application.CutCopyMode = False

Selection.AutoFill Destination:=Range("Q2:Q" & numRows)

Range("A1:Q1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$Q$1000000").AutoFilter Field:=17, Criteria1:= _

"گردش حساب و محاسبه پرونده اخذ گردد"

Columns("A:A").EntireColumn.AutoFit

Sheets("baresi").Select

Range("G6").Select

End Sub