Thread: Copy a range of generic cells.

Hi all, I will give you the code first and then the problem.

Application.Worksheets(1).Select
ActiveCell.End(xlToRight).Select
ActiveCell.Offset(0,-24).Select

The problem I'm having is I need to copy the last 24 months of data. I can run a Do While Loop to run from 24 months ago until now but with just short of 1000 cells to copy, the loop not only takes a while, but I feel like I might have a siezure watching the copy and paste process. Is there a way to select all the cells at once, from the last cell in the row to the cell at position -24?

If more is needed, I'll try to accommodate.

Thank you.

To grab all cells at once:

Activecell.End(xlToRight).Offset(,-23).Resize(,24).Copy

To reduce risk of siezures:

Application.ScreenUpdating = False

....code
....code
....code

Application.ScreenUpdating = True