Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G10:J11,G16:J19")) Is Nothing Then
Application.EnableEvents = False
If Target.Row > [G14] + 15 Then Application.Undo
If Application.CountA(Range("G" & Target.Row & ":J" & Target.Row)) > 1 Then Application.Undo
Application.EnableEvents = True
End If
End Sub