Automatically insert new row at top of table

[milestogo]

I have a table which I would like to be able to fill from the top, putting recent entries first. I am trying to make it so when data is added to cell E2, a new row is added in A2-F2. There is another data table next to the one in question so I would like if the insert didn't span across the whole sheet. I have tried recording a macro, but I would like the row to be inserted automatically without having to push a button.

 

[milestogo]

Ok, I managed to get i working how I wanted, and it put the active cell back in position to enter new data.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$2" Then

Range("A2:F2").Select
Selection.ListObject.ListRows.Add (1)
Range("A2").Select

End If
End Sub

 

[bebo021999]

Try to use worksheet module (right click on tab name then select ViewCode, paste this code into)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Row <> 2 Then Exit Sub
Application.EnableEvents = False
Range("A2:F2").Select
Selection.ListObject.ListRows.Add (1)
Range("E2").Select
Application.EnableEvents = True
End Sub