Selecting Range using .end(xldown) & .end(xlright)

[finaljustice]

Hi there! This is definately a quick question, but I need to select a range. I'm looking to do so along these lines:

Range("Activecell.End(xlDown)", "Active.End(xlToRight)").Select

This is definately a problem of not knowing the right jargon to do so.

Could someone please assist?

Thanks in advance!
final

 

[VoG]

Try

Dim LR As Long, LC As Long
LR = ActiveCell.End(xlDown).Row
LC = ActiveCell.End(xlToRight).Column
Range(ActiveCell, Cells(LR, LC)).Select

 

[finaljustice]

Try

Dim LR As Long, LC As Long
LR = ActiveCell.End(xlDown).Row
LC = ActiveCell.End(xlToRight).Column
Range(ActiveCell, Cells(LR, LC)).Select

Elegant solution, ty. But for curiosity, is it possible to do as I originally inteded? maybe using "Range(cells(),cells()).select"?

thanks you in advance once again.

 

[VoG]

As a one-liner

Range(ActiveCell, Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Select

 

[finaljustice]

As a one-liner

Range(ActiveCell, Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Select

Beautifull, I was trying to do so, but I was forgetting the .row & .column and couldn't see what i was doing wrong.
Thanks!

 

[VoG]

You are welcome.

For what it's worth you don't actually need to select that range in order to work with it. For example

Range(ActiveCell, Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Interior.ColorIndex = 3