Cómo puedo borrar valores cuando un rango esta bloqueado y ponerle una trama

La macro me bloquea según condiciones un rango de celdas, pero aparte de bloquearlas desearía que borre cualquier contenido en ese rango de celdas y le coloque una trama. Además deseo que la hoja al quedar boqueada solo me permita editar las celdas desprotegidas, pues esta macro no me bloquea gráficos estadísticos ni imágenes.

Espero su ayuda. Anexo la macro para que me brinde su ayuda.

Private Sub Worksheet_Calculate()
    ActiveSheet.Unprotect "1234"
    Range("J14:L45").Locked = False
    If [j13] = "0" Then Range("J14:J45").Locked = True
    If [k13] = "0" Then Range("K14:K45").Locked = True
    If [l13] = "0" Then Range("L14:L45").Locked = True
    Range("J67:L98").Locked = False
    If [j13] = "0" Then Range("J67:J98").Locked = True
    If [k13] = "0" Then Range("K67:K98").Locked = True
    If [l13] = "0" Then Range("L67:L98").Locked = True
    Range("J120:L151").Locked = False
    If [j13] = "0" Then Range("J120:J151").Locked = True
    If [k13] = "0" Then Range("K120:L151").Locked = True
    If [l13] = "0" Then Range("L120:L151").Locked = True
    Range("J173:L204").Locked = False
    If [j13] = "0" Then Range("J173:J204").Locked = True
    If [k13] = "0" Then Range("K173:K204").Locked = True
    If [l13] = "0" Then Range("L173:L204").Locked = True
    ActiveSheet.Protect "1234", DrawingObjects:=False, Contents:=True, _
        Scenarios:=False, AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, AllowFormattingRows:=True, _
        AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
End Sub