Try:

Dim y As Long
y = Cells(Rows.Count, 1).End(xlUp).Row
Range("A87:A" & y).Sort Key1:=Range("A87"), Order1:=xlAscending

Regards
Rowan

ayl322 wrote:
I have a list of customer names in cells A87:A??
I need to sort this list, but the list might get longer when names are
added.
I have a VBA code that adds the rows, and within that same code I need
to sort this list alphabetically.
Is there a way to write this code?
I need it to only sort the rows that has the data in A87 to A[end of
the list].

something like:
y = range("A87").end(xldown).row
range("A87:A" & "y").sort xlascending

of course the above code doesn't work but it kinda shows what i want it
to do.

Any help would be greatly appreciated!