I have this VBA code to disable to delete some cells, but this blocked me to insert a new row, when i try to insert a new row I got the MsgBox "You can't clear this cell", so what I can do to have both , disable to delete and enable to insert?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
If Application.Intersect(Target, Range("E1:E2000, G1:I2000, K1:Q2000, S1:S2000")) Is Nothing Then Exit Sub
For Each Cell In Target.Cells
If Len(Cell.Value) = 0 Then
Application.EnableEvents = False
Application.Undo
MsgBox "You can't clear this cell", vbExclamation, "Recipe Calculator"
Application.EnableEvents = True
Exit For
End If
Next Cell
End Sub