lastrow=cells(rows.count,"a").end(xlup).row

--
Don Guillett
SalesAid Software

wrote in message
ups.com...
I need to create a dynamic range, but I am coming up short on ideas on
how to accomplish this.

I have a program that finds the last row with data and enters new data
on the row below that, after the new data is entered I want to sort it
by column D (the date).

My range starts in cell A20 and extends as far as the data exists on
teh sheet. I don't expect to really need more than 1000 lines (an
eventual 2.7 years of data), but I didn't want to put any artificial
limits on the program.

How can I create a dynamic range based on teh last row with data in it?

Here is what I have so far, but I don't think I am going in the correct
direction. There has to be an easier way to do this.

Dim SortRange as Range
Set SortRange = Sheets("RawData").Range("A20:AB" & LastRow)
Range(SortRange).Sort Key1:=Range("D20"), Order1:=xlAscending

Please help!