Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(3)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Target(2, 1).EntireRow.Insert
End Sub
If Intersect(Target, Columns(3)) Is Nothing Then Exit Sub
If Intersect(Target, [C8]) Is Nothing Then Exit Sub
If Intersect(Target, Range("MyRng")) Is Nothing Then Exit Sub