السلام عليكم ورحمة الله
أخي الكريم حمادة، جرب الجزء التالي في الكود :
Range("B5:F100").SpecialCells(xlCellTypeConstants, 23).ClearContents
فهذا الجزء يحذف فقط القيم الثابتة (نصوص، قيم، قيم منطقية، أخطاء) دون المعادلات في النطاق B5:F100 ....
أرجو أن يفيدك هذا التعديل....
أخوك بن علية