VBA to copy data from one sheet to othe

[hai_krk]

Looking for VBA code to copy from one sheet to othe

Source data will have actuals for that week which is refreshed automatically using Pivot (It will show only 1 value for that week). In Trend sheet, I want to showcase trend for last four weeks.for current week, I want to show values from source sheet against week2 for both Table 1 and Table 2 . Next week current value should come in week 3 accordingly

After Week 4, it should delete week 1(column B) and add a new column for Week 1 after WEEK 4.
conditions:
Column A row size is dynamic based on input sheet (here its till 9, it can increase further.

Looking for a VBA for the same. attached sheet for reference