Lỗi khi tạo nút chạy macro ở sheet khác

[tranhthurac]

Sub thu2()
    Sheet17.Range("U10").Formula = "=IF(OR(R7C[8]="""",RC4=""""),"""",RC[-17])"
    Sheet17.Range("v10").Formula = "=IF(OR(R7C[7]="""",RC4=""""),"""",RC5)"
    Sheet17.Range("U10:AJ10").Select
    Selection.Copy
    Sheet17.Range("U11:AJ89").Select
    ActiveSheet.Paste
End Sub

Nhờ mọi người hướng dẫn giúp. Đoạn code trên, nếu ở file excel và sheet17 là sheet hiện hành (đang mở) thì sẽ chạy bình thường, còn nếu chuyển sheet khác thì không chạy được đoạn code trên.
Cảm ơn mọi người.

 

[CHAOQUAY]

    Sheet17.Range("U10:AJ10").Select
    Selection.Copy
    Sheet17.Range("U11:AJ89").Select
    ActiveSheet.Paste
End Sub

sửa thành

Sheet17.Range("U10:AJ10").Copy Sheet17.Range("U11:AJ89")

 

[tranhthurac]

    Sheet17.Range("U10:AJ10").Select
    Selection.Copy
    Sheet17.Range("U11:AJ89").Select
    ActiveSheet.Paste
End Sub

sửa thành

Sheet17.Range("U10:AJ10").Copy Sheet17.Range("U11:AJ89")

Cảm ơn bác nhiều. Chúc bác nhiêu sức khỏe vượt qua mùa dịch bác nhé.

 

[tranhthurac]

sửa thành

Sheet17.Range("U10:AJ10").Copy Sheet17.Range("U11:AJ89")

Sub Macro3()
'
' Macro3 Macro
'

'
    Range("AJ10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-15]="""","""",IF(INDEX(solieu,RC[-15]+3,(R6C[-8]-1)*R3C2+R4C7)=R2C2,R2C2,IF(RC[-13]="""","""",IF(ISNUMBER(INDEX(solieu,RC[-15]+3,(R6C[-8]-1)*R3C2+R4C7)),IF(OR(ABS(INDEX(solieu,RC[-15]+3,(R6C[-8]-1)*R3C2+R4C7)-INDEX(solieu,RC[-15]+3,(R6C[-10]-1)*R3C2+R4C7))>R1C3/1000,ABS(INDEX(solieu,RC[-15]+3,(R6C[-8]-1)*R3C2+R4C8)-INDEX(solieu,RC[-15]+3,(R6C[-10]-1)*R3C2+R4" & _
        "3/1000,ABS(RC[-13]-RC[-30])>R1C3/1000),R1C2,""""),INDEX(solieu,RC[-15]+3,(R6C[-8]-1)*R3C2+R4C7)))))"
End Sub

Nhờ bác hướng dẫn giúp lỗi macro này là gì, đoạn code trên là sử dụng tính năng record macro, nhưng khi mở lên (chưa chỉnh sửa gì) mà nó vẫn không chạy được
Cảm ơn bác.