Sub Macro1()
Dim N As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For N = 2 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(N).Range("E10:E18,J10:K18").ClearContents
Next N
Application.Calculation = xlCalculationAutomatic
End Sub