I have the following code in place to clear cells the cells on a worksheet named "Production Allocation":
Sub Clear_Cells()
Range("e10:g12").ClearContents
Range("e14:g22").ClearContents
Range("e24:g25").ClearContents
Range("e27:g48").ClearContents
Range("e50:g50").ClearContents...