Sub sortcoltoend()
Range("B1:B" & Cells(Rows.Count, "b").End(xlUp).Row). _
Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Brent E" wrote in message
...
Good day,
I am looking for a formula or VBA Code to dynamically sort a range of
cells
from Cell B2 down to the end of the Column regardless of length of data in
the column.
Thanks in advance for any ideas or suggestions.
Cordially,