Attribute VB_Name = "testcelledit8"
Sub ƒeƒXƒg()

    Range("B2:C2").ClearContents
    Range("B3:B5").ClearFormats
    Range("C3:C5").Clear
    
End Sub