Select ActiveCell and the Cell next to it

[pkew22]

I have about 15 columns of data in a spreadsheet. I need to select the data in two columns to format it.
How do I select the ActiveCell and the cell in the next column.?
If D6 was the activecell, Range("D6:E6").select works as it selects the two cells that I want. How do I do it using ActiveCell. The code below does not work.

ActiveCell.Resize(0, 1).Select
Range(Selection, Selection.End(xlDown)).Select

 

[Joe4]

All you need is:

ActiveCell.Resize(1, 2).Select

 

[Fluff]

The resize should be 2 not 1 & get rid of the 0 or change it to 1

 

[pkew22]

Thanks for the quick lesson on resize. Works beautifully now.

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[pkew22]

Sorry for the followup. How do I select all the data in the two columns if I have blanks? Can I use Selection and LastRow to account for the last rows.

Dim LastRow As Integer
LastRow = Range("A" & Rows.Count).End(xlUp).Row

ActiveCell.Resize(1, 2).Select
Range(Selection, Selection.End(xlDown)).Select  'Only selects data until the first blank row

 

[Fluff]

How about

Dim LastRow As Integer
LastRow = Range("A" & Rows.Count).End(xlUp).Row

ActiveCell.Resize(LastRow - ActiveCell.Row + 1, 2).Select

 

[pkew22]

This works perfectly. Selects just the data that I want.

Thank you.

 

[Fluff]

You're welcome.