Try the following:-

Private sub sort()
range("A4:AX4",range("A4:AX4").end(xlDown)).sort range("D4"), xlAscending
End sub


"Jock" wrote in message
...
In a worksheet which will be added to weekly, I would like to sort the
data
in columns A:AX by column D.
Rather than create a macro which will look at absolute references (ie.
A4:AX5000), can code be used to determine where the last row is and sort
only
rows which contain data?
--
Traa Dy Liooar

Jock