Use this sheet event code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
Target.Offset(1).EntireRow.Insert xlShiftDown
End If
End Sub

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"teresa" wrote in message
...
I need code for the following:

If I enter a value in a2 , a row is inserted below

Thanks for any assistance