Assuming headers are in row1, a1:I1

Right click on sheet tab and select view code.

put in code similar to this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
On Error GoTo ErrHandler
If IsEmpty(Target) Then Exit Sub
If Target.Column = 9 Then
Application.EnableEvents = False
Set rng1 = Range("A1").CurrentRegion
Set rng1 = rng.Resize(rng1.Rows.Count - 1)
rng1.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlYes
End If
ErrHandler:
Application.EnableEvents = True

End Sub

--
Regards,
Tom Ogilvy

"Craig" wrote in message
...
Hi,

I have an excel list with 9 columns, the first heading is date, the last
is
total.

I need to enter a batch of records into separate rows under the headings,
with each record having a different date. Is there any way that the
entire
list could be sorted by date every time I press enter after entering all
the
data in the list (I dont want to click the A to Z icon each row or at the
end
of data entry if possible.

Note: the last column sums several cells within the data record.

Thanks for any help on this.

Craig