selecting and sorting a variable rowlength

[its_excited]

Hi,

I've got a sheet where I want to select and then sort, via a macro, a
colum of data.
It always starts at "A11", but the end is always different.
How do I select this and then sort it this way that the data behind it
(in colum "B11:E11" till the end) will follow.

I have this code, but for some reasson only the selected colum will
sort, the data in the collums behind it will not follow.

Range("A11").Select
Range(Selection, Selection.End(xlDown)).Sort Key1:=Range("A11"),
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Can somebody please help me out?
Either by changing this code, or a total different solution.

Regards,
Maus

 

[Tom Ogilvy]

Range("A11").Select
Range(Selection, Selection.End(xlDown)).Resize(,5).Sort
Key1:=Range("A11"),
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[Don Guillett]

or
lr=range("a11").end(xldown).row
range("a11:e"&lr).sort etc

 

[its_excited]

Gentleman,


Thank you for your solutions.
They are working both...of course...
But......
For some reason, the data from the row of cell "A11" is the only data
that won't be sorted.
The rest sorts fine, but the row of "A11" stays, like it was before
sorting.
And this is NOT because the data starts with an 'A'.

Can you please provide me with any help on that as well???

regards,
Maus

 

[Roger Govier]

Hi

Maybe it's because you have
Header = xlGuess and XL is guessing wrongly.
Try changing to
Header =xlNo
and see if it makes a difference.

 

[its_excited]

Thank you Rogier.....
That did the trick...!