Copy Range with Offset Variable and Clear Data

I'm working to create a macro that will "Shift" data up a number or rows/months based on what the user enter's into an input box. With some googling and slow progress, I was able to put together the below code and sample. And this does work. But as I continue to learn and expand on the code, is there a better approach to doing the same thing?

The next step is to likely update the starting Month as well by the same 'period' the user defines.

Think I'm getting better

Please Login or Register  to view this content.

The Sample is part of what is would be an audit workpaper that is updated every XX months. The workpaper should always be showing 24 months of history. So when the user revisits the client again in XX months, they can 'push' all the data upwards in preparing to enter the new months info.

Eventually, I hope to expand on it where an approximate 100+ tables are updated in setting up for the revisit. Currently, we copy/paste and move the data manually each time for a revisit.

I worked some more on this last night while flying home, and created an Array and For Loop that will now 'shift' the contents upwards for 2 divisions, and should be able to add additional divisions as needed.

But I really want to learn and get better at coding VBA and still wondering if it can be improved upon, eliminate any unneeded code, etc.

New Sample file attached and code below. Note: I will probably create separate code that changes the dates as they will link to a main input sheet. Still in the 'learning' phase for now.

Please Login or Register  to view this content.