الاخ الكريم
جرب الكود بعد هذا التعديل البسيط حسب فهمي لطلبك
Sub delete_data()
Application.ScreenUpdating = False
sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo)
If sama = vbYes Then
Range("B5:B35" & ",F5:F35" & ",H5:H35" & ",L5:L35").ClearContents
Else
MsgBox "!! لم يتم الحذف"
End If
Application.ScreenUpdating = True
End Sub