CTRL+SHIFT+ARROW VBA Multiple Times?

[Will85]

What is the equivalent VBA?

For example I need to select 9 columns to the right of my starting point, 5 columns contain data, the other 4 columns are blank in between each of the 5 columns.

If I use

Range(Selection, Selection.End(xlToRight)).Select

it only seems to move to the right once, no matter how many times I repeat it in the VBA

 

[mskusace]

I'm not sure if you need to select certain data or the entire column, but one way to select 9 predefined columns would be the code snippet below. Just adjust the range as needed.

Columns("A:I").Select

 

[Will85]

For sure, however, the columns wont be pre-defined, just the number of columns from the right of the active cell.

This appears to do the trick:

Selection.Resize(Selection.Rows.Count, Selection.Columns.Count + 8).Select