اصلاح کد

[ali.b]

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

Sub al()Dim a
Dim b
    a = Range("A1")
    b = Range("A3:I3")
    Sheets("NOT").Select
    Rows("1:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheet17.Range("A1") = a
    Sheet17.Range("A2:L2") = b

این کد سالمه میخوام مثلا از رنج A3:I3 رو به A3:I9 تغییر بدم دیگه کار نمیکنه .
ردیف هام ممکنه تا ردیف 10 پر باشه ممکنه نباشه چکار کنم که این مشکل حل بشه و فقط ردیف هایی که پر هستن رو انتقال بده
ممکنه ی شیت 10 تا ردیف پر داشته باشه و شیت دیگه 1 که بخوام انتقال بدم به شیت NOT مشکل پیش نیاد

[ali.b]

منظورم اینه که ّرای کد rowچی بنویسم که خودش بخودکار فقط ردیف های خالی رو حذف کنه نه سلول های خالی که باعث به ریختن داده ها بشه

[Javid Mokhtari]

منتظر فایل نمونه هستیم ... دوست عزیز ...

[ali.b]

اینم فایل پیوستی
کلا میخوام با ی ماکرو همه ردیف هایی که در هر شیت هست رو به شیت جدید انتقال بده
مثل گزارش گیری منیخوام بشه

[Javid Mokhtari]

بعد از انتقال چطور کنار هم قرار بگیرن ...؟

[ali.b]

در زیر هم قرار بگیرن

[ali.b]

اقا یکی به داد ما برسه