[حل شده] کپی متن از لیست باکس به شبت و مرج ستون اول مربوط به داده های کپی شده

[ali.b]

با عرض سلام وادب خدمت اساتید

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

[ali.b]

با این کد حل شد

Sheet3.ActivateApplication.DisplayAlerts = False
Range("A2", Range("I65536").End(xlUp)).Copy
Lastrow = Sheet8.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
Sheet8.Range("A" & Lastrow).PasteSpecial xlPasteValues
newlastrow = Sheet8.Range("A" & Rows.Count).End(xlUp).Row
Sheet8.Range("A" & Lastrow & ":A" & newlastrow).Merge


Sheet8.Range("A" & Lastrow & ":A" & newlastrow).Merge