Insert a new top row if data entered in any column

I found the code to always be entering data into the top row, so that when you hit enter it moves everything down for you and gives you a blank row. BUT, is there a way for that to happen when data is entered into any of the columns?

So if my table data entry row is A4 thru D4. If I enter data anywhere in those 4 cells and hit enter it will move the data and give me a new row?

I'm a bit confused and surprised that you want to insert a new row when the curent row hasn't been filled yet.
Can you confirm again: Should a new row be inserted when any cell in the range A4:D4 is filled, meaning one cell is filled and three cells are still empty?

Anyway, let's give this code a try and implement it according to your request:

PHP Code: 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo enditall
Application.EnableEvents = False
If Intersect(Target, Range("A4:D4")) Is Nothing Or Target.Count > 1 Or IsEmpty(Target) Then Exit Sub
Range("D4").EntireRow.Insert
Range("A4").Select
enditall:
Application.EnableEvents = True
End Sub