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

 

[RAJESH1960]

Got it. Added one more line and got the line numbers too.

.Cells(Rows.Count, 5).End(3).Offset(1).Resize(dr) = drng.Columns(4).Value

 

[johnnyL]

See? You don't need my help.

 

[RAJESH1960]

Too soon you said. I am getting one more error. I am getting amounts in the particular column and cash in the amount column. I think I will be able to correct it. Let me give it a try.

 

[RAJESH1960]

Whoppee!! Finally corrected all the codes.
Now the ball is in your court. You will have to connect all the modules to one button only. I already tried that many a times but was not able to. The extract and daily sheets will be hidden from the user. So, when I run the code it should end in Sheet Get total in cell G2.

 

[RAJESH1960]

You don't need my help.

Seriously, without your help and comments I would not have learnt so much.

 

[johnnyL]

Upload your workbook as it now, so I don't have to go back through and make all of the changes.

 

[RAJESH1960]

Upload your workbook as it now, so I don't have to go back through and make all of the changes.

Assign module to single button.xlsm

 

[johnnyL]

Now the ball is in your court. You will have to connect all the modules to one button only. I already tried that many a times but was not able to.

You should be able to add Call statements to the end of the code for your first button to get the rest of the modules to automatically run.

 

[RAJESH1960]

You should be able to add Call statements to the end of the code for your first button to get the rest of the modules to automatically run.

I already tried that. But the first code is written in a way I can't understand and it is connected to the extract sheet too. Check the sheet name of Extract. You also can't edit it. Extract sheet not the code.

 

[RAJESH1960]

Now what could be Hoja1 no idea.