How do I change the range in this code.

[RAJESH1960]

'for' Loop @Fluff need your help to edit this..
This code was shared by Fluff last year which worked correctly in the previous project. At first the data extracted was filled in around 600 rows but when the value of the amount to be extracted has increased, it is not possible to get the data in 600 rows. Hence the formulas in rows after the 600th row have been shifted to the top so that I can get unlimited rows to fill the data.
If the number of rows is avoided and changed to unlimited rows it will be really helpful in future.
I am trying this code by changing the range in the code by editing it. But I am getting a run time error 1004 at this line. Can someone please help me to correct it.? I want to add this code at the end of the existing code.

         Cells(2000, .Offset(, -14).Column).End(xlUp).Offset(1).Resize(2).Value = .Offset(.Count - 2).Resize(2).Value

Link to the file is below
Shift amounts.xlsm

 

[johnnyL]

That is the code name for the sheet name 'Extract'.

 

[RAJESH1960]

I tried to call all the modules in extract code and I am getting the same compile error as before.
expected variable or procedure, not module.

 

[RAJESH1960]

It is time to grab some sleep now. Hope to see the single button running in the morning. Good Night JohnnyL.

 

[johnnyL]

No problem, Easiest way is to combine all the modules into one module. Then your dilemma would be solved.

 

[johnnyL]

Or in its current form you would use something like:

Call ModuleName.ModuleSubroutineName

Example:

Call BShiftAmounts.ShiftAmounts
Call CCopy_To_Daily.Copy_To_Daily
Call Get_Total.Get_Total

 

[johnnyL]

Let me know if you don't understand.

 

[RAJESH1960]

At first I thought when I press each button it is clearing the old data in the extract sheet. Then it is extracting the new data. But I was wrong here again. I have created a clear data button to clear the old data. Please alter this code especially the range or you can clear the data in each module first and then extract, etc., the data.
I also tried the call method to combine all the modules but it is not working.

 

[RAJESH1960]

This is the workbook with the clear old data button included.
ClearData all in one button.xlsm

 

[johnnyL]

Did you try the code in post #35? it is fool proof.

 

[RAJESH1960]

Yes. I tried in 2 different ways. Entered all the 3 lines in the end of Extract module - did not work.
entered individual lines in each module at the end - that too it did not work.