ممكن تعمل ماكرو تكتب فيه التالي(مع تغيير اسم الشيت أو الورقة وكذلك نطاق البيانات التي تريد مسحها
Sub clear()
Sheets("ÇáÃÌæÑ ÇáíæãíÉ").Range("C7:AG36,C38:AG67,C69:AG98,C100:AG129,C131:AG160,C162:AG191,C201:AG220").ClearContents
End Sub