Macro - Data Sort -Variable Selection

[Guest]

Hi all!!!

I am trying to get my macro to run a sort in a non specific cell for column
D.....there are many steps up to this point, I will include the last couple
in the code...here is what I have so far....

Columns("C:C").Find(What:="x").EntireRow.Insert
Columns("C:C").Find(What:="x").EntireRow.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range("D63"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Instead of the range being specific for D63, I want it to select the D
column after if finds X to the end of the wkst. Any ideas on how I can
accomplish this???

Thanks in advance......

 

[Dave Peterson]

..Sort is pretty forgiving. Didn't it work using D63?

I've used:

....key1:=range("d:d"), ...

And that works, too.

 

[Guest]

Selecting "d:d" works, but it will select the whole column... I only want to
sort the selection after I find x and sort that....

 

[Dave Peterson]

Don't select column D.

But do use it in the key1:=range("d:d") portion.

Then what happens?