السلام عليكم
اخي skyblue فعلا هناك مشكلة في الاضافة و ذلك لخطأ بسيط يمكن تصحيحه كالتالي :
في زر الاضافة كتب السطر التالي
ورقة2.Cells(SUP + 5, 8) = ""
و الخطأ أن الورقة ليست الورقة 2 بل هي الورقة 1 بمعنى يغير الرقم 2 و يكتب الرقم 1 فيكون السطر كالتالي :
ورقة1.Cells(SUP + 5, 8) = ""
ارجو المعذرة عن التأخر في تصحيح الخطأ و شكرا للجميع