This works fantastic!!! Thank you very much.

"Jacob Skaria" wrote:

Right click the sheet tabView code and Paste the below code...and try
entering values in Column A...Adjust to suit...Try and feedback

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Rows(Target.Row).Insert: Target.Offset(-1, 0).Select
End If
Application.EnableEvents = True
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Tkaklita" wrote:

Is it possible to create a program that will automatically add a row above
the row you are entering information on so that each row of info keeps moving
downwards?