VBA select from top to end of column

[opislak]

Hi all,

I try to select a variable range of cells in a column, in order to sort the data alphabetically.
This code does the job allright:

ws.Sort.SortFields.Add2 Key:=Range("A3:A999"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'Group (A-Z)

However, if the data in the column doesn't reach up to row 999, why select that deep? Is there a possibility to select only rows with data in them. Something like this:

Range("D3", Selection.End(xlDown)).Style = "Percent"

This works fine, too. Can both lines be somehow combined?

Thanks for responses!!
Patrick.

 

[Fluff]

Just use

Key:=Range("A3"),

 

[opislak]

Just use

Key:=Range("A3"),

Oh my God, that simple... I feel awful now...
Thank you very much!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[opislak]

You're welcome & thanks for the feedback.

Works perfect by the way. Thanks again.

 

[opislak]

May I ask another question?
The same for selecting multiple ranges in a table. This code works fine, but again, why select all the way down?

Range("A3:D999,E3:P999,Q3:Q999,R3:T999,U3:U999,V3:V999,W3:AH999").Select

Many thanks for your reply. Looking forward to it.
Patrick.

 

[Fluff]

That's got nothing to do with sorting, so needs a new thread. Thanks