مطلوب كود لترحيل بيانات فاتورة

[محمد سامي حسين]

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء لدي اكسل بسيط وكود بسيط جدا كما موضح بالصورة

الكود يعمل على نسخ رينج معين ولصقه بشيت اخر لكنني اواجه مشكلة بعملية النسخ حيث يقوم الكود بنسخ كل الخلايا التي تحتوي معادلات ولا يقوم بنسخ الخلايا المطلوبة فقط 

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

 

 

مع الشكر

 

 

bb.xlsm

[سليم حاصبيا]

استعمل هذا الماكرو

Option Explicit
Sub mohmmedsami()
Dim rg As Range
Dim y
Set rg = Sheets("ورقة1").Range("g1").CurrentRegion.Columns(1)
y = rg.Cells.Count - Application.CountBlank(rg)
 Range("g1:i" & y).Select 'Or Copy
End Sub