"Move Several Cols Down One Row"
 

Howdy folks,

I have data in Cols A through F...about 6 to 7 thousand rows (varies). I'd
like to shift all data in Range B2 through F (LastRow) down one row. I know
I can do this with a copy/paste macro but was wondering if that is the best
way to accomplish this.

All comments appreciated,

"Move Several Cols Down One Row"
 

Hi

One way to do it:

Set StartCell = Range("B2")
Set LastCell = Range("F" & Cells(Rows.Count, "F").End(xlUp).Row)
Set ShiftRange = Range(StartCell, LastCell)

ShiftRange.Cut Destination:=StartCell.Offset(1, 0)

Regards,
Per

On 19 Sep., 03:10, Don wrote:
Howdy folks,

I have data in Cols A through F...about 6 to 7 thousand rows (varies). *I'd
like to shift all data in Range B2 through F (LastRow) *down one row. *I know
I can do this with a copy/paste macro but was wondering if that is the best
way to accomplish this.

All comments appreciated,

"Move Several Cols Down One Row"
 

hi
if you are just shifting the entire 5 columns down 1 row, this might be the
easiest.

Range("B2:F2").Insert Shift:=xlDown

last row shouldn't be a factor.
regards
FSt1

"Don" wrote:

Howdy folks,

I have data in Cols A through F...about 6 to 7 thousand rows (varies). I'd
like to shift all data in Range B2 through F (LastRow) down one row. I know
I can do this with a copy/paste macro but was wondering if that is the best
way to accomplish this.

All comments appreciated,

"Move Several Cols Down One Row"
 

Thanks for the quick replies.....always more than one way to accomplish a
goal. And, yes, all the rows in the desired cols can be shifted down, not a
problem.

Hope you both have a great weekend coming up....thanks again,

Don

"FSt1" wrote:

hi
if you are just shifting the entire 5 columns down 1 row, this might be the
easiest.

Range("B2:F2").Insert Shift:=xlDown

last row shouldn't be a factor.
regards
FSt1

"Don" wrote:

Howdy folks,

I have data in Cols A through F...about 6 to 7 thousand rows (varies). I'd
like to shift all data in Range B2 through F (LastRow) down one row. I know
I can do this with a copy/paste macro but was wondering if that is the best
way to accomplish this.

All comments appreciated,

"Move Several Cols Down One Row"
 

hi
thanks for the feedbxk. you have a good one too.
regards
FSt1

"Don" wrote:

Thanks for the quick replies.....always more than one way to accomplish a
goal. And, yes, all the rows in the desired cols can be shifted down, not a
problem.

Hope you both have a great weekend coming up....thanks again,

Don

"FSt1" wrote:

hi
if you are just shifting the entire 5 columns down 1 row, this might be the
easiest.

Range("B2:F2").Insert Shift:=xlDown

last row shouldn't be a factor.
regards
FSt1

"Don" wrote:

Howdy folks,

I have data in Cols A through F...about 6 to 7 thousand rows (varies). I'd
like to shift all data in Range B2 through F (LastRow) down one row. I know
I can do this with a copy/paste macro but was wondering if that is the best
way to accomplish this.

All comments appreciated,