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]

Something is amiss. The daily sales is not transferred to Total sheet. The dates have vanished from the Daily sheet too. Maybe that is the reason. That is due to in extract sheet the dates are erased in column 6.

 

[johnnyL]

I think you have bumped your head.

 

[RAJESH1960]

I replaced the total code with your code. That is what I was supposed to do right?

 

[johnnyL]

Link to workbook

Compare that to yours.

 

[RAJESH1960]

I can't find the download button. Got it the second time.

 

[johnnyL]

What url does it show?

 

[RAJESH1960]

Downloaded and going through it.

 

[RAJESH1960]

Your workbook is working perfect but not mine. I will check it out tomorrow and let you know. I already bumped my head on the table since I am feeling very sleepy and I don't want to bump once again.

 

[johnnyL]

ok, G'nite.

 

[RAJESH1960]

Good Morning JohnnyL. I had deleted the 6th row by mistake maybe. That is why I was not getting the proper result. Now that the query is solved time to close the post. Thank you once again JohnnyL.