يتم الترحيل الى اول صف بعد الجدول على الرغم من وجود صفوف كثيرة فارغة داخل الجدول

[الصفتى]

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

Dim LastRow As Long
lastrow = thisworkbook.sheets("xx").range("g1000000").End(xlUp).Row
LastRow = LastRow + 1

 

[شوقي ربيع]

بكل بساطة اعكس العملية

Dim LastRow As Long
LastRow = ThisWorkbook.Sheets("xx").Range("g1").End(xlDown).Row
LastRow = LastRow + 1

 

[الصفتى]

جزاك الله خيرا  تمت بنجاح