Code chạy báo lỗi khi đang ở sheet khác (1 người xem)

[AnhThu-1976]

Em có code sau

Sub Name_KH()
Dim EndR_1
With Sheets("MA")
EndR_1 = [B65000].End(xlUp).Row

Range("B10").Resize(EndR_1 - 9, 1).Name = "KH"

End With
End Sub

Nếu đứng tại sheet MA chạy code thì không báo lỗi
Nếu đứng tại một sheet khác (khác sheet MA) chạy code thì báo lỗi
"Run-time error 1004
Application - defined or object - defined error"
Nhờ anh chị hướng dẫn sửa lỗi trên
Xin cảm ơn