تفضل اخي 
اتمنى ان يكون المرفق هو المطلوب   
* طريقة الحل :   - حدد ثم عرف منطقة الحذف فى الجدول باسم : TR1  - من خلال طرفية vba قم بالضغط مرتين على زر الحذف من خلال الفورم .. وذلك لفتح منطقة الاكواد 
سيظهر الحدث  
  
Private Sub CommandButton1_Click()
End
  
اضف الكود التالي لمحو محتويات نطاق الحذف  :  Range("TR1").ClearContents  
لكي يصبح الكود هكذا : 
  
Private Sub CommandButton1_Click()
Range("TR1").ClearContents
End Sub
 تقبل تحياتى واحترامي   
Classeur1_prof.rar