ارور در اجرای ماکرو

[ghoghnous]

با عرض سلام و خداقوت خدمت تمامی دوستان محترم
پس از اجرای ماکرو ، در فرآیند اجرا، خط های زیر بعنوان ارور زرد میشوند ، ممنون میشم اگر بزرگواری در خصوص احتمالات این ارورها راهنمایی بفرمایند:

k1 = Application.WorksheetFunction.CountA(Sheet1.Range( "1:1")) + 1
k2 = Application.WorksheetFunction.CountA(Sheet2.Range( "1:1")) + 1


Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1
Z2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ghoghnous]

سلام
فایل نمونه خدمتتان ارسال میگردد.
توضیح اینکه ماکروی موجود نه در این فایل نه در فایلهای مشابه اجرا نمی شود.

[iranweld]

ماکرو اجرا میشود و ارورری که فرمودید مشاهده نمیگردد

بعضی از ستونهای شیت دوم را نیز جابجا نموده و سپس ماکرو را اجرا کردم مرتب سازی انجام میشود

ضمنا آیا گزینه اجرای ماکرو در سیستم شما در وضعیت Enable هست؟