السلام عليكم التحية لجميع الأخوة خاصة معلمي الأستاذ محمد حجازي أدامه الله و حفظه من كل مكروه .
أعتقد أنك يمكنك استبدال
Set MyRange = Application.InputBox(prompt:="أدخل مجال الخلايا التي تريد إدراج الترقيم التلقائي فيها", Title:="مجال الخلايا", Type:=8)
بالتالي
Set MyRange = Worksheets("sheet1").Range("k2:k500")
مع ملاحظة تغيير اسم الشيت حسب ما هو موجود لديك