Macro to select the 20 rows below the currently selected cell

[Buns1976]

Hi Everyone,

I have a macro that selects the cell in column A which contains the text "Freight Summary". "Freight Summary" is always in column A but can be in any row. I need to continue this macro by selecting the 20 rows below the cell containing "Freight Summary", copy those rows over to column B

Thanks,
B

 

[Joe4]

One simple way:

    Range(ActiveCell, ActiveCell.Offset(20, 1)).Select

 

[Buns1976]

One simple way:

    Range(ActiveCell, ActiveCell.Offset(20, 1)).Select

Joe4,
I didn't explain it effectively. Your addition selects what was required, I edited the code to select 6 columns which is what was needed and works correctly. Also what I need is to bump that entire selection(column A: G) right one column to column B:H

 

[Joe4]

Joe4,
I didn't explain it effectively. Your addition selects what was required, I edited the code to select 6 columns which is what was needed and works correctly. Also what I need is to bump that entire selection(column A: G) right one column to column B:H

Still not being too clear on what exactly you need.

Let's come at this from a different angle:
If the ActiveCell is cell A4, what range exactly do you want to select (tell me the exact rangel address).

 

[MARK858]

@Buns1976 is there any data to right of the data being moved (i.e. Column H and onwards)?

 

[Buns1976]

Still not being too clear on what exactly you need.

Let's come at this from a different angle:
If the ActiveCell is cell A4, what range exactly do you want to select (tell me the exact rangel address

I attached 3 pics below. Pic 1 is the original state. Pic 2 is after the macro is run. Pic 3 is the desired state where the selection is mover 1 column to the right.

 

[Buns1976]

@Buns1976 is there any data to right of the data being moved (i.e. Column H and onwards)?

I posted 3 pics which probably explains it best.

 

[MARK858]

I posted 3 pics which probably explains it best.

No, they only show up to column H, what is past that?

Column H and onwards)

 

[Buns1976]

No, they only show up to column H, what is past that?

Nothing.

 

[MARK858]

Then you should be able to just do an insert

Sub Buns()
ActiveCell.Offset(1).Resize(20).Insert
End Sub