Quiero proteger las celdas que tienen formula para que no se borre en excel

Sub REGISTRAR()
If Range("D10").Value = "" Or Range("K27").Value = 0 Then Exit Sub
If Range("H4").Value = "FACTURA" Then
With Sheets("Reg. Ventas").Range("a65536").End(xlUp)
.Offset(1, 0) = CDate(Range("d15").Value)
.Offset(1, 1) = CDate(Range("d15").Value + Range("c31").Value)
'FACTURA
.Offset(1, 2) = "FT"
.Offset(1, 3) = "'" & Range("h5").Text
.Offset(1, 4) = "'" & Range("k5").Text
'GUÍA DE REMISIÓN
.Offset(1, 5) = "GR"
.Offset(1, 6) = "'" & Range("i11").Text
.Offset(1, 7) = "'" & Range("k11").Text
.Offset(1, 8) = "" & 6
.Offset(1, 9) = Range("d9").Text
.Offset(1, 10) = Range("d10").Text
.Offset(1, 3) = "'" & Range("h5").Text
.Offset(1, 4) = "'" & Range("k5").Text
' SUB TOTAL - IGV - TOTAL
.Offset(1, 11) = Range("k27").Value
.Offset(1, 12) = Range("k28").Value
.Offset(1, 13) = Range("k29").Value
.Offset(1, 14) = Range("C29").Value
.Offset(1, 15) = Range("K29").Value - Range("C29").Value
'CÓDIGO VENDEDOR
.Offset(1, 16) = "" & Range("G15").Text
.Offset(1, 17) = Range("H15").Text
'FACTURA N° + 1
Range("K5").Value = Range("K5").Value + 1
'GUÍA DE REMISIÓN N° + 1
Range("K11").Value = Range("K11").Value + 1
15
MsgBox "La factura fue registrada Exitosamente", vbInformation, "INVERSIONES MEYBEL S.R.L."
End With
Else
With Sheets("Reg. Compras").Range("a65536").End(xlUp)
.Offset(1, 0) = CDate(Range("j7").Value)
.Offset(1, 1) = CDate(Range("j7").Value + Range("b21").Value)
.Offset(1, 2) = "'0" & 1
.Offset(1, 3) = "'0" & Range("g5").Text
.Offset(1, 4) = "'0" & Range("j5").Text
.Offset(1, 5) = "'0" & 6
.Offset(1, 6) = Range("c5").Text
.Offset(1, 7) = Range("c6").Text
.Offset(1, 8) = Range("j17").Value
.Offset(1, 9) = Range("j18").Value
.Offset(1, 10) = Range("j19").Value
.Offset(1, 11) = Range("B19").Value
.Offset(1, 12) = Range("C29").Value - Range("D29").Value
MsgBox "La factura fue registrada Exitosamente", vbInformation, "INVERSIONES MEYBEL S.R.L."
End With
End If
End Sub
Sub LIMPIAR()
Range("D9:F9,D19:D25,C29,C31,B19:C25,G15").ClearContents
End Sub