كود اللصق

[M07AMED]

االسلام عليكم

بعد اذن الاساتذه الكرام

انا استخدم هذ الكود للصق بعض البيانات من ملفات اخرى

SHEET1.Range("H9:Q10000" & Cells(Rows.Count, "H").End(xlUp).Row).PasteSpecial 

لكن المشكله انه  الكود يقوم باللصق من خليه H9 حتى لو موجود بيانات فيها

انا اريد يكون اللصق من اخر خليه مكتوبه 

شاكر تعاونكم ...

[lionheart]

Sheet1.Range("H" & Sheet1.Cells(Rows.Count, "H").End(xlUp).Row).PasteSpecial

 

[M07AMED]

جزاك الله الف خير ... مشكور اخي جعلها الله في ميزان حسناتك