The ONE cell in Col A ranges from a2 to infinity...
Private Sub Worksheet_Change(ByVal Target As Range)
lastrow=cells(rows.count,"a").end(xlup).row
Set myrng = Range("a2:f" & lastrow)
If Not Intersect(Target, myrng) Is Nothing Then
myrng.Sort Key1:=Range("a2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
> The ONE cell in Col A ranges from a2 to infinity...
>
[quoted text clipped - 7 lines]
>>> do I have to do this exercise of sorting on a constant basis.
>>> Thanks!