Sub Clearcells()
'Updateby Extendoffice
Range("B8", "B12").Clear
End Sub