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

[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